Bilder in die Paradoxtabelle speichern ?

[OrgFreak]

Es geht auch so:

Im DbNavigator auf bearbeiten gehen und dann unten stehenden Button2 drücken.
Zuvor aber das Bild in eine Image-Komponenete holen;

Delphi-Quellcode:

begin
try
ImageOpenDlg1.execute;
if imageopendlg1.filename='' then begin
end
else begin
Image1.Picture.LoadFromFile(ImageOpenDlg1.filename);
end;

procedure TSave.Button2Click(Sender: TObject);
var c: TBitmap;
begin
c:=TBitmap.create;
c:=image1.picture.bitmap;
dbimage1.picture.bitmap:=c;
end;

Gruss

OrgFreak

[DeddyH]

Das kann man aber auch anders schreiben (bei selber Vorgehensweise):

Delphi-Quellcode:

if ImageOpenDlg1.Execute then 
  Image1.Picture.LoadFromFile(ImageOpenDlg1.filename);

procedure TSave.Button2Click(Sender: TObject);
begin
  DBImage1.Picture.Bitmap.Assign(Image1.Picture.Bitmap);
end;

[Bummi]

eine generische Methode für TPicture, also prinzipiell JPEG,PNG,WMF,BMP,GIF, hattee ich im Source unter
http://www.delphi-forum.de/viewtopic.php?t=108639
LoadSaveImageBlobs.pas
abgelegt.

[marabu]

Hallo ihr beiden.

Wäre nicht ftGraphic der geeignetere TBlobType? Und die Fehlermeldung bezieht sich wohl auf LoadFromFile() - vermutlich ist im Opendialog noch gar keine Datei ausgewählt worden.

Grüße vom marabu

[mkinzler]

Zitat von marabu:

Hallo ihr beiden.

Wäre nicht ftGraphic der geeignetere TBlobType?

Ist wohl besser.Müßte aber auch so gehen, oder? Bin kien so Kenner de BDE (mehr).

Zitat:

Und die Fehlermeldung bezieht sich wohl auf LoadFromFile() - vermutlich ist im Opendialog noch gar keine Datei ausgewählt worden.

Grüße vom marabu

Ich sollte die Beiträge genauer durchlesen hab nur ..kann nicht öffnen und .Open gesehen und auch schon meine Antwort getippt. .Open ist aber definitiv bei DML falsch.
[Edit: tags korrigiert]

[Vader]

hallo,

hab viele beiträge in der suche durchgelesen, aber ich finde keinen beitrag wo man mit paradox und tquery bilder in die tabelle
gespeichert hat, wisst ihr ein beispiel oder einen link ?
mfg vader

[mkinzler]

Nimm doch den Code von oben mit Achims Ergänzugnen und stelle sicher das eine Datei im Dateidialog ausgewählt wurde (opendialog1.Execute).

[Edit: Tippfehler entfernt]

[marabu]

Hier ein wenig Code:

Delphi-Quellcode:

procedure TDemoForm.SaveButtonClick(Sender: TObject);
var
  s: TStream;
begin
  s := TMemoryStream.Create;
  Image.Picture.Bitmap.SaveToStream(s);
  with Query do
  begin
    SQL.Text := 'update biotest set graphic = :graphic where speciesno = :speciesno';
    ParamByName('speciesno').Value := Table.FieldByName('SpeciesNo').Value;
    ParamByName('graphic').LoadFromStream(s, ftGraphic);
    ExecSQL;
    Table.Refresh;
  end;
  s.Free;
end;

marabu

[Vader]

hallo marabu,

dein code:

Delphi-Quellcode:

procedure TDemoForm.SaveButtonClick(Sender: TObject); 
var 
  s: TStream; 
begin 
  s := TMemoryStream.Create; 
  Image.Picture.Bitmap.SaveToStream(s); 
  with Query do 
  begin 
    SQL.Text := 'update biotest set graphic = :graphic where speciesno = :speciesno'; 
    ParamByName('speciesno').Value := Table.FieldByName('SpeciesNo').Value; 
    ParamByName('graphic').LoadFromStream(s, ftGraphic); 
    ExecSQL; 
    Table.Refresh; 
  end; 
  s.Free; 
end;

ich versteh die welt nicht mehr ??

1.was bedeutet "speciesno" ist das der feldname wo die fotos rein müssen ?
2.biotest ist das der name der datenbankdatei ?
3.warum brauche ich die tablekomponente wenn ich query und updatequery habe ?

mfg vader

[Vader]

hab da einen code aufgeschnappt, und wollte das auf mein projekt umstricken

meine datenbankdatei heißt bilder.db und der feldname wo die fotos rein sollen heißt Foto !

habe mein projekt drangehängt, ich check das alles nicht, das kann doch nicht so schwer sein
ein bild in die tabelle speichern ?
könnte wer einmal über meine datei drüberschauen ?
mfg vader