Öffnen im Paint-Programm ohne Image

[Checkitout]

Hallo Leute! Ich bin neu hier und habe eine Frage.
Ich möchte versuchen im Paint-Programm eine Bmp-Datei zu öffnen, aber es nicht überlicherweise,in einer Image, sondern, eben in der Formular-Fläche. Ich habe hier ein Code, jedoch wirkt er nur, wenn die Mal-Fläche auch ein TImage ist. Ich möchte aber einfach direkt das Bild auf das Fomular laden. Ich male ja auf das Formular drauf und nicht auf die Image (benutze ich nicht und will ich auch nicht
Hier nun der ganze Code fürs öffnen:

Delphi-Quellcode:

procedure TFormFile.MenuLadenClick(Sender: TObject);
begin
  OpenDialog.Options := [ofFileMustExist];
  IF OpenDialog.Execute
     THEN Try
            Image.Picture.LoadfromFile(OpenDialog.FileName);
            SaveDialog.Filename := OpenDialog.FileName;
            FormFile.Caption := ExtractFileName (OpenDialog.FileName);
          Except
            Application.MessageBox ('Datei konnte nicht geladen werden!',
              'Fehler', MB_OK);
          END; {Try}
end;

Das heißt also, dass statt

Delphi-Quellcode:

Image.Picture.LoadfromFile(OpenDialog.FileName);

etw. anderes stehen muss. Könnt ihr mir sagen, wa dort hinkommen soll?
Ich weiß net was ich machen soll... :coder2:

[Nils_13]

Hi,
erstmal Willkommen :party:

Lade das Bild und mals per Canvas auf die Form.

[Checkitout]

Ich habe doch eben schon gefragt, was ich statt dies:

Delphi-Quellcode:

 SaveDialog.Filename := OpenDialog.FileName;

schreiben muss. Was denn nun :cyclops:

[Checkitout]

Quatsch!
Ich meinte eigentlich

Delphi-Quellcode:

Image.Picture.LoadfromFile(OpenDialog.FileName);

:lol:

[Khabarakh]

Es heißt zwar "eine Frage - ein Thread", aber du musst den zweiten nicht auch noch im falschen Bereich starten :roll: .

Delphi-Quellcode:

var Bit: TBitmap;
begin
  Bit := TBitmap.Create;
  OpenDialog.Options := [ofFileMustExist];
  if OpenDialog.Execute then
    try
      Bit.LoadfromFile(OpenDialog.FileName);
      Form1.Canvas.Draw(0, 0, Bit);
      SaveDialog.Filename := OpenDialog.FileName;
      FormFile.Caption := ExtractFileName (OpenDialog.FileName);
    except
      Application.MessageBox ('Datei konnte nicht geladen werden!',
        'Fehler', MB_OK);
    end; {Try}
  Bit.Free;
end;

[Checkitout]

Ja, sorry dass ich die Frage wieder in diese Kathegorie eingeordnet habe!

Danke für den Quelltext, das Programm scheint zu funtionert, wenn ich es aufrufe.
Jedoch, wenn ich eine BmP-Datei öffnen will, dann kommt immer eine Fehlermeldung
Siehe Datei, um zu sehen wie die Meldung aussieht.
Ja und danach kann ich dan gar nichts mehr machen! :shock:

[Nils_13]

Starte die Anwendung ohne Delphi dann wird irgendein Fehler kommen evtl. sogar 'Datei konnte nicht geladen werden!'

Dann denkst du drüber nach siehst weiter, falls du es hinkriegst sagst du uns bitte noch die Lösung.

[Checkitout]

Komisch, wenn ich es ohne Delphi mache, dann kommt keine Fehlermeldung. Dann klicke ich ganz normal drauf, aber die bmp-Datei wird nicht geöffnet... :cry:

[Checkitout]

Nee, ich hatte es nochmal versucht und dann kam "Datei konnte nicht geladen werden!"
Hmm, warum denn nicht :?:

[DGL-luke]

vielleicht nur weil es die datei nicht gibt?

[Checkitout]

Ja, die Datei gibt es.
Ich habe auch mehrere Dateien ausprobiert und kann geöffnet werden :( :cry: :roll: :cry: :(

[DGL-luke]

was mir ein bisschen komisch vorkommt:

Delphi-Quellcode:

OpenDialog.Options := [ofFileMustExist];

sollte man nicht zur designzeit das beim opendialog einbstellen? denn mit dieser methode werden alle anderen flags auf false gesetzt.

[Checkitout]

Leider bin ich da auch unsicher dabei :shock:

[DP-Maintenance]

Dieses Thema wurde von "Christian Seehase" von "Open-Source" nach "Sonstige Fragen zu Delphi" verschoben.
Kein Open-Source-Programm

[DGL-luke]

dann einfach mal auskommentieren und schauen obs dann geht......

[Checkitout]

Sonst noch Jemand mit genauerer Hilfe?
:duck:

[Binärbaum]

Zitat:

Zitat von DGL-luke

was mir ein bisschen komisch vorkommt:

Delphi-Quellcode:

OpenDialog.Options := [ofFileMustExist];

sollte man nicht zur designzeit das beim opendialog einbstellen? denn mit dieser methode werden alle anderen flags auf false gesetzt.

Das könnte man mit

Delphi-Quellcode:

OpenDialog.Options := OpenDialog.Options+[ofFileMustExist];

umgehen. (Ich hoffe das war jetzt der richtige Operator, da ich lange nicht mehr mit Sets gearbeitet habe.

MfG
Binärbaum

[Checkitout]

:( Schade, aber er funtionert trotzdem nicht. Später wir angezeigt, dastw. hiermit nicht stimmt:

Delphi-Quellcode:

OpenDialog.Options := OpenDialog.Options+[ofFileMustExist];

Wisst ihr vielleicht, was?
Hm... :wall:

[Checkitout]

Sorry, ich meinte hiermit:

Delphi-Quellcode:

Form1.Canvas.Draw(0, 0, Bit);

:mrgreen: