|
Registriert seit: 30. Mär 2003
Ort: Kiel urspr. Lübeck
176 Beiträge
Delphi 7 Professional
|
Re: BLOB
22. Sep 2004, 08:32
Da diese Lösung dem "Update" zum Opfer gefallen ist, hier nochmal 
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var S: TMemoryStream;
begin
Table1.Append;
S := TMemoryStream.create;
try
OleContainer1.SaveToStream(S);
Table1.FieldValues['ID'] := StrToInt(RzSpinEdit1.Text);
S.Position := 0;
TBlobField(Table1.FieldByName('BLOBIMAGE')).LoadFromStream(s);
Table1.Post;
Table1.ApplyUpdates;
finally
S.Free;
end;
end;
Gruß
Ken
Ein Objekt ist eine zur Ausführungszeit vorhandene für seine Instanzvariablen Speicherplatz allokierende Instanz, die sich gemäß dem Protokoll ihrer Klasse verhält.
|