Forum: Datenbanken
Delphi
by dataspider,
11. Apr 2007
Hi,
ich habe mir eine Proc mal rausgepickt und angepasst.
Es ist besser, statt TObject TDataSet als Parameter zu definieren.
Die Prüfung, ob die Datei existiert, sollte zu Beginn erfolgen.
Die Benennung der Parameter sollte nachvollziehbar sein.
...
procedure SaveFileToDB(DataSet: TDataSet; const FilePath, FileName,
Forum: Datenbanken
Delphi
by dataspider,
10. Apr 2007
Hi,
jup, habe den Fehler von oben übernommen. Ich denke aber, es sollte dann
image1.Picture.Bitmap.LoadFromStream(AStream);
Cu, Frank
Forum: Datenbanken
Delphi
by dataspider,
9. Apr 2007
... oder mit CreateBlobStream:
procedure TForm1.Button3Click(Sender: TObject);
var
AStream: TStream;
begin
MyTable.Active := true;
MyTable.First;
AStream := MyTable.CreateBlobStream(FieldByName('Picture'), bmRead);