Forum: Object-Pascal / Delphi-Language
Delphi
by mkmk,
8. Dez 2008
Der Code in seiner ganzen strahlenden Schönheit:
//==============================
// ListView1 Click
//==============================
procedure TForm1.ListView1Click(Sender: TObject);
var nPictNr : Integer;
cBild : String;
TmpJpg : TJPEGImage;
strStream : TStringStream;
Forum: Object-Pascal / Delphi-Language
Delphi
by mkmk,
8. Dez 2008
Vergiss meine Frage :)
TmpJpg und strStream sind ja nur Pointer, die mit Create erschaffen werden; und deshalb mit free auch wieder aus der Memory entfernt werden müssen.
Forum: Object-Pascal / Delphi-Language
Delphi
by mkmk,
8. Dez 2008
//==============================
// ListView1 Click
//==============================
procedure TForm1.ListView1Click(Sender: TObject);
var nPictNr : Integer;
cBild : String;
TmpJpg : TJPEGImage;
strStream : TStringStream;
begin
nPictNr := StrToInt(ListView1.Items.Caption);
Forum: Object-Pascal / Delphi-Language
Delphi
by mkmk,
8. Dez 2008
Ich habe TStringStream und try-finally in mein Programm eingebaut. Danke für die Anmerkungen.
Forum: Object-Pascal / Delphi-Language
Delphi
by mkmk,
8. Dez 2008
Guten Tag allerseits
Von der seriellen Schnittstelle bekomme ich von einem Controller ein Bild im Jpeg Format zugesendet.
Im 1. Schritte habe ich diese Daten in eine Datei 'bild.jpg' geschrieben und dann mit
Form1.Image1.Picture.LoadFromFile('bild.jpg');
in der Form angezeigt.
Um dann nicht den Umweg über die Disk zu nehmen, habe ich es über String geladen. Nur: obwohl es einwandfrei...