Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1236 connectés 

  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  Lecture d'un fichier... problème de Read !!!

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Lecture d'un fichier... problème de Read !!!

n°232013
Un4GivN
Posté le 21-10-2002 à 20:09:28  profilanswer
 

Code :
  1. procedure TForm1.Button2Click(Sender: TObject);
  2. var
  3. f : TFileStream;
  4. TempRec : TID3Info;
  5. Info : TID3Info;
  6. begin
  7. f.Create(file1.filename, fmOpenRead); //(où F = le nom du fichier)
  8.    begin
  9.       f.Seek(SizeOf(TID3Info), soFromEnd);
  10.       f.Read(TempRec, SizeOf(TID3Info));
  11.       Application.MessageBox('',TempRec.TAG,0);
  12.       f.free;
  13.    end;
  14. end;


 
Ca plante à la ligne "f.read(TempRect....."

mood
Publicité
Posté le 21-10-2002 à 20:09:28  profilanswer
 

n°232015
[SDF]Poire
Vive Grumly
Posté le 21-10-2002 à 20:11:14  profilanswer
 

Info : TID3Info;  ???
 
str: String;
 
stream.read(str[1], size); // ça ça marche
 


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
n°232017
Un4GivN
Posté le 21-10-2002 à 20:16:04  profilanswer
 

f.Read(str[1], size); // ça ça marche  
f.Read(TempRec, SizeOf(TID3Info));
 

Code :
  1. ****************
  2. Type TID3Info = record
  3.    TAG:     array[0..2]  of Char;
  4.    Title:   array[0..29] of Char;
  5.    Author:  array[0..29] of Char;
  6.    Album:   array[0..29] of Char;
  7.    Year:    array[0..3]  of Char;
  8.    Comment: array[0..29] of Char;
  9.    Genre:   Byte;
  10. End;
  11. ****************


 
Ca marche pas plus... et toute facon c'est exactement la meme chose sauf pour les noms de variables...

n°232024
antp
Super Administrateur
Champion des excuses bidons
Posté le 21-10-2002 à 20:29:05  profilanswer
 

je t'avais répondu dans l'autre topic :o
 
f := TFileStream.Create(.....);
 
ça sert à rien de refaire un topic à chaque fois !


Message édité par antp le 21-10-2002 à 20:29:25

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°232026
[SDF]Poire
Vive Grumly
Posté le 21-10-2002 à 20:30:20  profilanswer
 

antp a écrit a écrit :

je t'avais répondu dans l'autre topic :o
 
f := TFileStream.Create(.....);
 
ça sert à rien de refaire un topic à chaque fois !




ptdr j'avais même pas vu


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
n°232030
Un4GivN
Posté le 21-10-2002 à 20:31:39  profilanswer
 

oui je sais antp... mais j'ai essayé, rafistolé... là je crois que ca tiens. je viens de revérifier quelques chose... jai mélangé vos 2 codes et sa tient ...  :pt1cable:  
 
Merci bcp vous 2 :jap: :jap:

n°232032
antp
Super Administrateur
Champion des excuses bidons
Posté le 21-10-2002 à 20:32:22  profilanswer
 

fallait pas rafistoler :p
fallait juste copier les bouts :p
 
voilà l'autre topic d'ailleurs :
http://forum.hardware.fr/forum2.php3?post=27261&cat=10


Message édité par antp le 21-10-2002 à 20:32:50

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°232035
[SDF]Poire
Vive Grumly
Posté le 21-10-2002 à 20:33:41  profilanswer
 

antp a écrit a écrit :

fallait pas rafistoler :p
fallait juste copier les bouts :p
 
voilà l'autre topic d'ailleurs :
http://forum.hardware.fr/forum2.php3?post=27261&cat=10
 




:D
 
enfin C mystique les stream... j'arrive que à ce que ça marche en prenant des string pour les buffer  :(


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
n°232089
antp
Super Administrateur
Champion des excuses bidons
Posté le 21-10-2002 à 22:25:44  profilanswer
 

le "mystique" c'est un peu une explication facile à une certaine incompétence :D
 
[:dehors]


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°232236
[SDF]Poire
Vive Grumly
Posté le 22-10-2002 à 09:10:13  profilanswer
 

antp a écrit a écrit :

le "mystique" c'est un peu une explication facile à une certaine incompétence :D
 
[:dehors]




Propose des solutions  :D


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  Lecture d'un fichier... problème de Read !!!

 

Sujets relatifs
[C C++ MAC]Ouverture fichier (simple pour programmeur mac)Problème sur la classe File
probleme avec une variable NULL (en access)[C] probleme de structure
visual c++ : comment faire appel à un fichier .h ?Problème IE : décalage des images dans les tables
[C] Problème de libération mémoire \Visual C++Problème d'adaptation d'un div par rapport à un autre div en absolut
Problème avec site hébergé en local...[W3C] Problème de validation
Plus de sujets relatifs à : Lecture d'un fichier... problème de Read !!!


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR