hallo,
JPEG habe ich in uses aufgenommen,dann hat er auch den code kompiliert
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
blob : TMemoryStream;
jpeg : TJPEGImage;
bmp : TBitmap;
s: String;
begin
blob := TMemoryStream.Create();
jpeg := TJPEGImage.Create;
bmp := TBitmap.Create;
TRY
if OpenpictureDialog1.Execute then
begin
s :=ExtractFileExt(OpenPictureDialog1.FileName);
if uppercase(s) = '.BMP' then
begin
bmp.loadfromfile(OpenPictureDialog1.FileName);
blob.Clear;
bmp.saveToStream(blob);
end else
begin
jpeg.LoadFromFile(OpenPictureDialog1.FileName);
blob.Clear;
jpeg.SaveToStream(blob);
end;
// query1.SQL.Text := 'Update Tabelle Set Foto = :Bild where ID = :id';
query1.SQL.Text := 'Insert into losch( Tennis) values( :Bild);';
query1.ParamByName('bild').LoadFromStream(blob,ftGraphic);
// query1.ParamByName('id').AsInteger := DM.FahrerID.AsInteger;
query1.ExecSQL;
end;
Finally
freeandnil(blob);
freeandnil(jpeg);
freeandnil(bmp);
DBImage1.LoadPicture;
END
end;
er läßt mich auch posten, aber wenn ich das jpeg dann in der dbimage anschauen will kommt der fehler
bitmap ist ungültig
mfg vader