Der Code in seiner ganzen strahlenden Schönheit:
Delphi-Quellcode:
//==============================
// ListView1 Click
//==============================
procedure TForm1.ListView1Click(Sender: TObject);
var nPictNr : Integer;
cBild : String;
TmpJpg : TJPEGImage;
strStream : TStringStream;
begin
nPictNr := StrToInt(ListView1.Items[ListView1.ItemIndex].Caption);
// ListView.Items[ListView1.ItemIndex].SubItems[0] waere 2. Spalte
cBild := MyComPort.SendPicture(nPictNr, ProgressBar1);
if cBild <> '' then begin
try
strStream := TStringStream.Create(cBild);
TmpJpg := TJPEGImage.Create;
TmpJpg.LoadFromStream(strStream);
Form1.Image1.Picture.Assign(TmpJpg);
finally
TmpJpg.Free;
strStream.Free;
end;
end;
end;