Hallo dataspider,
dein Code funktioniert einwandfrei. Für alle die das nachvollziehen wollen:
bei dir hat sich leider ein kleiner Fehler eingeschlichen.
(hab try except; weggelassen)
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var AStream: TStream;
begin
MyTable.Active := true;
MyTable.First;
AStream := MyTable.CreateBlobStream(Mytable.FieldByName('Picture'), bmRead);
image1.Picture.Icon.LoadFromStream(AStream);
end;
Bei dir:
image1.Picture.LoadFromStream(AStream);
Die Methode Loadfromstream gibt's bei picture nicht!
Richtig:
image1.Picture.Icon.LoadFromStream(AStream);
Zu deinem Code Neutral General:
dein Code funktioniert nicht. Ergebnis Streamlesefehler. (Warum hab ich noch nicht rausgefunden.)
Vielen Dank!!!
Ihr habt mir sehr geholfen.