Discussion :

[beni34]

Bonjour,

J'ai developpé une application sur visual en delphi prism et je voudrait la créer sur delphi 2009, cependant j'utilise la fonction readAllByte et je ne trouve pas d'équivalence.
Voici le code en delphi prism

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
fi := new Sytem.IO.FileInfo(file1);
buffer := new byte[fi.length];
buffer := system.IO.File.ReadAllBytes(file1);

Comment je pourais coder cela en delphi?

[ShaiLeTroll]

Utilise un TFileStream

[beni34]

Ok c'est ça merci !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
fStream := TFileStream.Create(file1, fmOpenRead);    
fStream.Read(buffer,fStream.Size);

Le soucis c'est que je souhaiterai envoyer ces données via un composant port COM mais j'ai trouvé que des composants qui n'envoi que des chaines de caractères.
Comment puis-je envoyer ces données?
Merci

[ShaiLeTroll]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
var
  buffer: AnsiString;
...
fStream := TFileStream.Create(file1, fmOpenRead);
SetLength(buffer, fStream.Size);   
fStream.Read(buffer[1],fStream.Size);

l'utilisation d'une chaine comme buffer, c'est périlleux en Delphi 2009 avec UniCode, normalement la version TComPort 4 pour Delphi 2010 utilise des AnsiString ! ne pas installer une version antérieur !

[beni34]

J'ai essayé le bout de code avec le AnsiString mais la variable buffer n'est jamais affecté même aprés la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fStream.Read(buffer[1],fStream.Size);

???

[Montor]

essaie ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fStream.Read(PChar(buffer)^,fStream.Size);

Tu peut aussi utiliser TStringStream...