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...

[ShaiLeTroll]

Interressant, j'utilise souvent "ReadBuffer(string[1]..." pour indiquer le début de la chaine, c'est obligatoire avec une chaine longue ou courte ([1]) ou un tableau dynamique ([0]).
Avec un Tableau Fixe, ce n'est pas utile

Par prudence PAnsiChar au lieu de PChar, ...

Faudra qu'un jour que je prenne le temps d'installer Delphi 2010 et etudier ce genre de chose ! Je suis toujours sur la 6 ou la 7

le TStringStream utilise une UniCodeString ou une AnsiString ?
Cela ne risque-t-il pas d'influer sur les données ?

Question con : Stream.Size est supérieur à Zéro ?

[Montor]

j'ai les mêmes craintes que toi je suis toujours D7 D2006 mais la version ne me dérange pas trop ...
tien je viens juste d'écrire la version unicode de Fileexists

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function Fileexists(const FileName: Widestring): boolean;
var
  Handle: THandle;
  FindData: TWin32FindDataW;
begin
  Result :=false;
  Handle := Windows.FindFirstFileW(PWideChar(FileName), FindData);
  if (Handle <> DWORD(-1)) then
  begin
    Windows.FindClose(Handle);
    Result:=(FindData.dwFileAttributes and 16 )=0;
  end;
end;

Il peut aussi utiliser TWideStrings disponible depuis D2006 ...

Par prudence PAnsiChar au lieu de PChar, ...

pas de souci même avec Pointer(Buffer)^

Question con : Stream.Size est supérieur à Zéro ?

Pas de problème

Code :

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

1
2
3
4
5
6
7
8
9
10
function GetFileContenent(const Filename :string):AnsiString;
begin
   with TFilestream.Create(Filename,fmopenread)do
   try
      SetLength(Result,Size);
      Read(Pointer(Result)^,Size);
   finally
     Free;
   end;
end;

exemple

Code :

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

 S:=GetFileContenent('c:\R.txt');

[beni34]

Le fichier que je doit envoyer n'est pas en faite un fichier txt mais un fichier wav, c'est pour cela cela que je souhaite avoir des bytes et un composant qui transfere ces données en tant que bytes.
C'est aussi pour cela peut être que la variable buffer n'est jamais affecté avec:

Code :

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

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

ou

Code :

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

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

[ShaiLeTroll]

Tu as des caractères #0, en fait elle doit être affectée mais il est incapable de l'afficher !

parcours la chaine avec une boucle, et tu verras ce qu'elle contient !

[beni34]

Idem avec :

Code :

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

1
2
3
4
 
fStream.Read(PChar(buffer)^,fStream.Size);
for i:=0 to fStream.Size - 1 do
      ShowMessage(buffer[i]);

???

[ShaiLeTroll]

une chaine cela se parcours de 1 à length, déjà faudrait apprendre les bases de manipulation des chaines !

Est-ce que Size est bien supérieur à Zéro ?

Ensuite, si je dis qu'il n'est pas capable d'afficher, l'utilisation du ShowMessage est contraire à ce que je disais !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
S := '';
K := 0;
for i:= 1 to Length(Buffer) do
begin
  S := S + IntToStr(Ord(Buffer[I])) + ' ';
  if I mod 15 = 0 then
  begin
    Memo1.Lines.Add(S);
    S := '';
  end;
end;
 
if S > '' then
  Memo1.Lines.Add(S);

On pourrait aussi utiliser BinToHex !

[beni34]

Daccrord, il ya bien des valeurs dans la variable mais lorsque j'envoi sur le port:

Code :

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

ComPort1.WriteStr(buffer);

comment être sur qu'il envoi les données ou les #0?

[ShaiLeTroll]

la méthode WriteStr renvoie un Integer, c'est normalement la longueur de la chaine, étudie le code de TComPort, selon les options, le comportement est différent !

Rien n'empêche de mettre un autre TComPort et avec OnRxChar de débugguer ton 1er TComPort