Bilder als BLOBs einfügen

 

procedure TForm1.PicLoadClick(Sender: TObject);
begin
  Datamodule2.OpenPictureDialog1.Execute;
  if Datamodule2.OpenPictureDialog1.FileName <> '' then begin
    Datamodule2.DataSource1.Edit;
    DBImage1.Picture.LoadFromFile(Datamodule2.OpenPictureDialog1.FileName);
  end;
end;

Tip von M.Prager 

 

Alias während der Laufzeit setzen

Sinnvollerweise legt man ein Alias für  das Verzeichnis der  verwendeten  Datenbank-Tabellen an. Ggf. kann man das Verzeichnis der Anwendung wie folgt während der Laufzeit auslesen und damit auf die (im selben) Verzeichnis abgelegten Tabelle zugreifen:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Table1.TableName := Copy(Application.ExeName, 1,
                           LastDelimiter('\', Application.ExeName))
                           +'Filme'; 
  Table1.Active := True;
end;

Tip von T.Schiemann

 

Zurück zu Delphi

© Dietrich Praclik