TCommonDialog.FileName macht Probs.

[Nightfly]

Zur Erklärung mal 2 Codeschnipsel:
Dieser Code dient zur Protokollierung, es soll der Pfad der Grafikdatei einer Nummer zugeordnet und in eine DB gespeichert werden.

Delphi-Quellcode:

procedure TForm1.OpenPictureDialog1Close(Sender: TObject);
begin
if Table3.Locate('Ohr',Table1Nr.Value,[]) then Table3.Edit else Table3.Append;
Table3Pfad.Value := OpenPictureDialog1.FileName;
Table3Ohr.Value := Table1Nr.Value;
Table3.Post;
end;

Nun, das Problem: die Nummer taucht in der Datenbank auf, allerdings ist der Pfad immer ein X, er schreibt ihn nicht in die DB.
Der folg. Code wird korrekt Ausgeführt:

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
Image1.Picture.LoadFromFile (OpenPictureDialog1.FileName);
end;

Da Die Imagekomponente das ausgewählte Bild anzeigt (dies geschieht ja über FileName) muß diese Eigenschaft ja den korrekten wert beinhalten. Warum landet dieser dennoch nicht in der DB? Jemand ne idee?

[Sharky]

Hai Nightfly,

im .Onclose der "File-Dialoge" ist .FileName noch nicht gesetzt.

[Nightfly]

oh...mist, das is schlecht

[Sharky]

Zitat von Nightfly:

oh...mist, das is schlecht

Warum? Du brauchst doch nur deine beiden Procedure oben zu kombinieren:

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject); 
begin 
  if (OpenPictureDialog1.Execute) then
  begin
    if Table3.Locate('Ohr',Table1Nr.Value,[]) then 
    begin
      Table3.Edit 
    end
    else 
    begin
      Table3.Append; 
    end;
    Table3Pfad.Value := OpenPictureDialog1.FileName; 
    Table3Ohr.Value := Table1Nr.Value; 
    Table3.Post; 
    Image1.Picture.LoadFromFile (OpenPictureDialog1.FileName); 
  end;
end;