zusammenfalten · markieren

Delphi-Quellcode:

   var TheStream: TMemoryStream;
   begin
      TheStream := TMemoryStream.Create;
      try
         Image1.Picture.Bitmap.SaveToStream(TheStream);
         with qryBlobInsert do begin
            Sql.Text := 'INSERT INTO EVENTS (EventNo,EVENT_PHOTO) ' +
               'VALUES (100,:ThePicture)';
            Params.Clear;
            Params.CreateParam(ftBlob, 'ThePicture', ptInput);
            ParamByName('ThePicture').LoadfromStream(TheStream, ftBlob);
            ExecSQL;
         end;
      finally
         TheStream.Free;
      end;
   end;

Der schöne Code stammt von Michael Seeger - Delphi Treff

Meine Frage, wie bekomme ich "ÜBER TZQuery" das Blob wieder in eine TImage oder TDBImage?

markieren

Delphi-Quellcode:

FStream := TMemoryStream.Create() ;

qryBlobInsert.Sql.Text := 'SELECT EVENT_PHOTO FROM EVENTS WHERE...' ;
qryBlobInsert.Open();
FStream := qryBlobInsert.CreateBlobStream(FieldByName('EVENT_PHOTO'), bmRead);
qryBlobInsert.Close() ;

FStream.Seek(0,soFromBeginning) ;
Image1.Picture.Bitmap.LoadFromStream(FStream );

Einfach umgedreht:

markieren

Delphi-Quellcode:

Field.SaveToStream(TheStream);
...
Image.Picture.Bitmap.LoadFromStream(TheStream);

Danke für eure Hilfe