Tengo el siguiente codigo :
Código Delphi
[-]unit test;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
Button3: TButton;
PerlRegEx1: TPerlRegEx;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
F: TFileStream;
Buffer: array [0 .. 1023] of byte;
begin
F := TFileStream.Create(ExtractFilePath(Application.ExeName)
+ 'test.exe', fmOpenRead);
while F.Position < F.Size do
begin
F.Read(Buffer,1024);
end;
F.Free;
end;
El problema esta en que no se como convertirlo a string la variable buffer que es array of bytes para poder buscar ciertos paremetros en la variable string , eh intentado meterlo en un memo pero nada , ¿ alguien tiene alguna idea para ayudarme ?
Todo esto lo eh intentado leyendo este articulo :
http://delphiallimite.blogspot.com.a...exto-y_30.html