Bilder in die Paradoxtabelle speichern ?

[mkinzler]

das mit der Ini-datei würde ich machen. Sonst verschiebst du irgendwann dein Daten von c:\tennis auf x:\sonstiges\tennis und dein Programm sucht die Bilder weiter auf c:\tennis. deshalb relative Datenpfade und das Bezugsverzeichnis extra abspeichern! Und dafür eignet sich eine Ini-Datei sehr gut.

[Vader]

also es geht auch ohne inidatei, wie muß ich den pfad in die tabelle schreiben ,das er dann auch in
dbimage angezeigt wird ?
mfg vader

[mkinzler]

So wird er gar nicht in einem DBImage angezeigt. Sondern du liest aus der Datenbank nur den Pfad+Dateiname und öffnest dann diese date und zeigst sie mit einem normalen TImage an.

[Vader]

achso ist das, kennst du so ein beispiel in der suche ?
mfg vader

[mkinzler]

Etwas so:

Delphi-Quellcode:

Query1.Close;
Query1.SQL.Text := 'select * from losch';
Query1.Open; 
...
image.Picture.LoadFromFile( Query1.FieldByName('tennis').asString);

[Vader]

hallo,

der code funktioniert :

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
Query1.Close; 
Query1.SQL.Text := 'select * from winter';
Query1.Open;
Image1.Picture.LoadFromFile( Query1.FieldByName('Pfad').asString);
end;

end.

jetzt zeigt er mir das foto in timage vom ersten gespeicherten pfad in der paradoxtabelle !
aber wie geht das ,wenn ich jetzt mehrere pfade in der tabelle abgespeichert habe, das ich die nacheinander
in timage anschauen kann, wenn ich mich in DBGrid mit den cursor runter bewege ?

mfg vader

[mkinzler]

Hallo Vader,

Dazu mußt du auf deas Verschieben des Datensatzzeigers reagieren, indem du Anzeige des Bildes in den afterScroll-Event verlegst.

[Vader]

hallo,
wenn ich den code

Delphi-Quellcode:

Query1.Close; 
Query1.SQL.Text := 'select * from winter'; 
Query1.Open; 
Image1.Picture.LoadFromFile( Query1.FieldByName('Pfad').asString);

in das afterscrollereigniss schreibe, hängt sich mein delphi immer beim kompilieren auf ???
mfg vader

[mkinzler]

Nicht den ganzen Code nur das Bildanzeigen.

Delphi-Quellcode:

Image1.Picture.LoadFromFile( Query1.FieldByName('Pfad').asString);

[Vader]

hallo,

ach wie peinlich !!

danke
mfg vader

[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.