Mit einem
TStringStream wird die Sache noch eleganter:
Delphi-Quellcode:
cBild := MyComPort.SendPicture(nPictNr);
if cBild <> '' then
begin
strStream := TStringStream.Create(cBild);
TmpJpg := TJPEGImage.Create;
TmpJpg.LoadFromStream(memStream);
Image1.Picture.Assign(TmpJpg); // unbedingt Form1. weglassen !!!
TmpJpg.Free; // nicht vergessen !!
end;