guten abend,
kann ich in ein timage nur eine jpg-datei einfügen mit entsprechender dateiendung?
hab nämlich einige jpgs umgenannt in z.b. "bild.5" und dann kommt folgende fehlermeldung:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project2.exe ist eine Exception der Klasse EInvalidGraphic aufgetreten. Meldung: 'Unbekannte Bilddateierweiterung (.5)'. Prozeß wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

über sinn und zweck lässt sich streiten, will das aber so machen
kennt jmd ne lösung wie ich es trotz der dateinamenänderung machen kann?
danke

Eine dämliche, aber wohl funktionierende Lösung ist wohl: Vor dem Laden in ~~.jpg umbenennen, Bild laden, danach wieder in ~~.5 umbenennen
- besser aber wohl das Konzept überdenken: Die Extensions als Zähler zu missbrauchen ist wohl tatsächlich bedenklich.

Einfach TPicture.RegisterFileFormat verwenden und gut is, die Datei kann dann eine Extension haben wie sie will

Zitat von Sunlight7:

Einfach TPicture.RegisterFileFormat verwenden und gut is, die Datei kann dann eine Extension haben wie sie will

Muss er das dann nicht für alle mögliche Extensions (.1, .2, .3, .4, ...) tun? (Pssst, ich würde versuchen, ihm das auszureden.)

... man könnte RegisterFileFormat() auch in eine Schleife packen und für alle positiven Integer einfach mal durchlaufen lassen

und warum nicht auch die Negativen?

tja, warum eigentlich nicht?

Zitat von Uwe Raabe:

Muss er das dann nicht für alle mögliche Extensions (.1, .2, .3, .4, ...) tun? (Pssst, ich würde versuchen, ihm das auszureden.)

Ja muß er (Pssst, hilft das beim Auszureden?)

Hi!

Vielleicht gibt es eine andere Möglichkeit, das umzusetzen, was du vorhast.
Dafür müsstest du aber beschreiben, was du vorhast....


Ciao, Frederic

Hi,

ich würde einfach den Umweg über einen Stream machen.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  AStream: TFileStream;
begin
  AStream := TFileStream.Create(pfad + 'bild.5', fmOpenRead);
  try
    if (Image1.Picture.Graphic <> nil) then
      Image1.Picture.Graphic.LoadFromStream(AStream)
    else
      raise Exception.Create('Picture ist noch ohne Grafik');
  finally
    AStream.Free;
  end;
end;

Wenn z. Entwurf ein leeres JPeg geladen wird, ist Graphic auch nicht nil.

Frank