TBitmap vom falschen Type

[sexmagic]

Hallo Leute,

ich habe ein Problem das ich einfach nicht verstehe, ich möchte im Grunde nichts anders tun als ein JPEG als BMP speichern.

Dazu habe ich diese Prozedure verwendet:

Code:

procedure TForm1.JPEGtoBMP(const FileName: TFileName);
var
  jpeg: TJPEGImage;
  bmp:  TBitmap;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 100;
    jpeg.LoadFromFile(FileName);
    bmp := TBitmap.Create;
    try
      bmp.Assign(jpeg);
      bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
    finally
      bmp.Free
    end;
  finally
    jpeg.Free
  end;
end;

Und aufrufen tu ichs so:

Code:

Jpeg2Bmp(Label5.Caption);

Das Probelm ist aber das bei mir TBitmap nivht von der Klasse Graphics abgeleitet wirds sonder von der aus Windows.
Ich habe also keine Methoden zur verfügung, kein create, assign, safetofile.
Was kann ich tun damit das vom richtigen Type abgewandelt wird, und vor allem warum ist das so, ist das vielleicht normal?

Ich habe viel gegooglet und gesucht aber irgendwie scheine ich der einzige zu sein der diesews Problem hat.

Mein lösungsversuch war dann vor der Procedure den Typ zu definieren, das hab ich so gemacht:

Code:

type TBitmap = class (Graphics.TGraphic);

Dann wird der richtige Typ verwendt, aber das is doch nicht normal oder?
Weiters bekomme ich dann immer eine Fehlermeldung: TJPEGImage kann nicht zu TBitmap zugewiesen werden.

Wäre für Hilfe sehr dankbar, ich komme selber nicht drauf.

Danke

SM

[Hawkeye219]

Hallo,

der Fehler resultiert aus einer Überladung des Typs TBitmap, der in den Units Windows und Graphics definiert wird. Der Compiler verwendet immer die Definition, die als letzte in der Uses-Anweisung aufgeführt wird. Ändere daher die Reihenfolge so ab, daß Graphics nach Windows angegeben wird.

Gruß Hawkeye

[sexmagic]

Danke für deine schnelle Antwort!

Das hat den Fehler behoben, nur komisch ist das Graphics hinter Windows war, ich hab Graphics nun an die letzte stelle gereiht und nun tuts!!!!


Vielen Dank dmait ist auch das andere Problem mit der Fehlermeldung gelöst!

[Der_Unwissende]

Hi,
auch wenn du das Problem schon gelöst hast, noch eine Alternative:
Du kannst die Klasse auch mit der Unit qualifizieren, aus der sie stammt. Das ist z.B. dann nötig, wenn du die Graphics Unit im Interface, Windows aber im Implementation Teil hättest. Einfach den NameDerUnit.Klassenname und dann klappt das auch.
An sich empfiehlt es sich sogar, dass man dies immer dann macht, wenn man mit Konstanten arbeitet, die in einer Unit deklariert sind (vermeidet halt solche Fehler). Bei Klassen hat man halt den Vorteil, dass die zwar gleich heißen, aber häufig inkompatibel sind, bei Integer Werten sieht dass schon anders aus.

Gruß Der Unwissende

[sexmagic]

Sehr schön, danke für den Tip!