Hi,
Wie kann ich Exe Dateien und auch andere Dateien (wav, dat, ka was) in z.B ein Memo laden?
Also wenn man die Datei normal reinlädt bekommt man ja nur die ersten paar Zeichen. Hab mir gedacht das es vielleicht an den #0 in der Datei liegen könnte und hab mit Hilfe von nem Freund was gebaut, aber es funktioniert nicht
Was ist da falsch? Oder ist das der komplett falsche Weg?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var FileS: TFileStream;
StringS: TStringStream;
Temp: String;
begin
if Opendialog1.Execute then begin
FileS := TFilestream.Create(Opendialog1.FileName, fmOpenread);
StringS := TStringStream.Create('');
StringS.CopyFrom(FileS,FileS.Size);
Temp := StringReplace(StringS.DataString,#0,'',[rfReplaceAll]);
Memo1.Text := Temp;
end;
end;
Gruß
Neutral General