[delphi] débutant : Accès aux fichiers

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [delphi] débutant : Accès aux fichiers

Kyle_Katarn

Pourquoi le code suivant (pris dans l'aide de Delphi et adapté) me fait il une violatino d'accès et comment corriger ?

Code :

function TForm1.COF(koi : string):string;
var
iFileHandle: Integer;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;
begin
iFileHandle := FileOpen(koi, fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead := FileRead(iFileHandle, Buffer, iFileLength);
FileClose(iFileHandle);
FreeMem(Buffer);
end;

Publicité

antp

Super Administrateur
Champion des excuses bidons

spa terrible pour lire du texte dans un fichier cette méthode
Pourquoi t'emploies pas TFileStream et les string classiques de Delphi ?

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

Kyle_Katarn

je viens d'essayer TFileStream mais quand je fais

Code :

function TForm1.COF(koi : string):string;
var
Fic: TFileStream ;
temp:string;
begin
Fic := TFileStream.Create(koi,fmOpenRead);
Fic.Read(temp,fic.Size);
Fic.Free;
end;

j'ai une erreur du même type quand j'arrive au "read"...

antp

Super Administrateur
Champion des excuses bidons

Fic := TFileStream.Create(koi,fmOpenRead);
SetLength(temp, Fic.Size); // faut allouer la mémoire pour la chaine, mais au moins on ne devra pas se soucier de la libération
Fic.Read(temp[1],fic.Size); // 1 parce que c'est à 1 que commence la chaine. Si tu mets juste temp tu ne sais pas sur quoi tu tombes, soit le 1er octet d'une ShortString (sa taille) soit un morceau d'AnsiString/LongString, qui est un peu plus complexe

il faudra peut-être mettre @temp[1] s'il n'accepte pas temp[1] tout seul.

Message édité par antp le 19-12-2002 à 15:13:13

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

Kyle_Katarn

merci je regarde ça tout de suite !

FORUM HardWare.fr

Programmation

Delphi/Pascal

[delphi] débutant : Accès aux fichiers

Sujets relatifs
acces 2000, VBA et temps d'éxécution	[INTRANET] aide débutant
[Delphi] débutant : créer une unit de fonctions	[Win32] Solutions simples pour lire des fichiers sons.
[PHP] accès qu système de fichier et vérouillage de fichiers (flock)	Où mettre ses fichiers properties dans une webapp ?
switch pour débutant	[HTML] droits / accès refusé
Plus de sujets relatifs à : [delphi] débutant : Accès aux fichiers

Page générée en 0.055 secondes