Hallo,
ok, mein Versuch zeigt nichts an, was kann denn daran falsch sein (ich mache das zum ersten Mal):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Stream: TFileStream;
S: String;
begin
Stream := TFileStream.Create(ExtractFilePath(ParamStr(0)) + 'test.jpg', fmOpenRead or fmShareDenyNone);
try
Stream.Read(S, Length(S));
Memo1.Text := S;
finally
Stream.Free;
end;
end;
Vielen Dank für Eure Hilfe,
Morfio ...