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

Marsh Posté le 21-10-2002 à 20:09:28

Code :

procedure TForm1.Button2Click(Sender: TObject);
var
f : TFileStream;
TempRec : TID3Info;
Info : TID3Info;
begin
f.Create(file1.filename, fmOpenRead); //(où F = le nom du fichier)
begin
f.Seek(SizeOf(TID3Info), soFromEnd);
f.Read(TempRec, SizeOf(TID3Info));
Application.MessageBox('',TempRec.TAG,0);
f.free;
end;
end;

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

Reply

Marsh Posté le 21-10-2002 à 20:09:28

Reply

Marsh Posté le 21-10-2002 à 20:11:14

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:

Reply

Marsh Posté le 21-10-2002 à 20:16:04

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

Code :

****************
Type TID3Info = record
TAG: array[0..2] of Char;
Title: array[0..29] of Char;
Author: array[0..29] of Char;
Album: array[0..29] of Char;
Year: array[0..3] of Char;
Comment: array[0..29] of Char;
Genre: Byte;
End;
****************

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

Reply

Marsh Posté le 21-10-2002 à 20:29:05

je t'avais répondu dans l'autre topic

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

Reply

Marsh Posté le 21-10-2002 à 20:30:20

antp a écrit a écrit :

je t'avais répondu dans l'autre topic

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:

Reply

Marsh Posté le 21-10-2002 à 20:31:39

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:

Reply

Marsh Posté le 21-10-2002 à 20:32:22

fallait pas rafistoler
fallait juste copier les bouts

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

Reply

Marsh Posté le 21-10-2002 à 20:33:41

antp a écrit a écrit :

fallait pas rafistoler

fallait juste copier les bouts

voilà l'autre topic d'ailleurs :
http://forum.hardware.fr/forum2.php3?post=27261&cat=10

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:

Reply

Marsh Posté le 21-10-2002 à 22:25:44

le "mystique" c'est un peu une explication facile à une certaine incompétence

[:dehors]

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Reply

Marsh Posté le 22-10-2002 à 09:10:13

antp a écrit a écrit :

le "mystique" c'est un peu une explication facile à une certaine incompétence

Propose des solutions

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

Reply

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

Sujets relatifs:

Leave a Replay