Home » Tutorials » Datenbanken » ZEOS Library – Einsatz mit Delphi und Firebird

ZEOS Library – Einsatz mit Delphi und Firebird

BLOB-Felder

Die Komponenten der ZEOS Library können ähnlich wie die BDE-Komponenten auch mit Blobfeldern umgehen. Hier ein Beispiel, wie ein neuer Datensatz mit einem Blobfeld erstellt wird. In das Blobfeld wird eine Bitmap geschrieben. Dazu muss der Umweg über einen Stream genommen werden:

 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;

• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• 10
• 11
• 12
• 13
• 14
• 15
• 16
• 17
• 18
• 19
• 20
• 21