Heb volgende code, maar krijg reeds een "Stream ERROR" na het selecteren van een JPG.
Pascal code heb ik kunnen leren na mijn 50 ste via boekjes en internet.
Dus...een beetje genade met mij.
Code:
procedure TForm1.BitBtnFOTOClick(Sender: TObject);
var
BlobStream : TStream;
theimagefile: TFilename;
begin
with Datamodule1.IBTable1 do
Begin
Datamodule1.IBTable1.Edit;
OpenPictureDialog1.Filename := '*.*';
OpenPictureDialog1.Execute;
theimagefile := OpenPictureDialog1.Filename;
IF (theimagefile = '') OR (theimagefile = '*.*')
THEN MessageDlg('Niets gekozen ... !', mtinformation, [mbOK], 0) else
Begin
Try
BlobStream := CreateBlobStream(Datamodule1.IBTable1.FieldByName('FOTO'),bmRead);
Image1.Picture.LoadFromStream(BlobStream);
//// hier moet iets komen om naar de database "Table" te verwijzen!!!
Finally
BlobStream.Free;
End; //try .. finally
End; //else
END; //with ... do begin
end;
Bookmarks