GetDIBSizes?

[ChrisTG]

Hallo,

ich versuche einen alten Deplhi-Quellcode mit Lazarus zu bearbeiten. Leider scheitere ich momentan daran, dass die Funktion "GetDIBSizes" nicht bekannt ist.
In welcher Unit finde ich sie?
Vielen Dank!

Gruß,
Chris

[Antrepolit]

Das klingt ja, als würdest du von Hand zufuß and irgendwelchen Bitmap-Routinen rumschrauben. Sicher, dass Lazarus nicht schon alles dafür dabei hat?

[gocher]

Bei Delphi befindet sich die procedure

Code: Alles auswählen

procedure GetDIBSizes(Bitmap: HBITMAP; var InfoHeaderSize: DWORD; var ImageSize: DWORD);

in vcl\Graphics.pas, Lazarus nimmt bei Grafikbearbeitung einen anderen Weg, denn sie soll ja nicht nur unter Windows laufen!

[ChrisTG]

Hallo,

okay, also kann ich Euren Antworten entnehmen, dass es keine vergleichbare Funktion in Lazarus gibt?

Sicher, dass Lazarus nicht schon alles dafür dabei hat?

Nein, woher soll ich das wissen?

Gruß,
Chris

[MAC]

Was willst du denn erreichen, was ist dein Ziel ?
Ich denke dann können wir eher eine Alternative anbieten..

[ChrisTG]

Hallo,

so wie ich das sehe, wird die Funktion nur benutzt um den Speicherbedarf für Header und Graphics zu ermitteln. Direkt danach wird im Code mittels Memory() der Speicher reserviert.
Im Endeffekt ist das GetDIBSizes teil einer Druckroutine, mittels der eine Bitmap auf einem Printer ausgegeben werden kann.
Vielleicht gibt es dafür ja schon (halb-)fertige Lösungen in der LCL?

Gruß,
Chris

[Antrepolit]

Im Endeffekt ist das GetDIBSizes teil einer Druckroutine, mittels der eine Bitmap auf einem Printer ausgegeben werden kann.
Vielleicht gibt es dafür ja schon (halb-)fertige Lösungen in der LCL?

Natürlich gibt es da was fertiges. Ein Drucker verwendet ein Canvas. Du Zeichnest deine Grafik mit Bild.Draw(Canvas, x, y) einfach auf das Canvas des Druckers. An dieser Stelle solltest du dich mit dem Canvas-Konzept auseinandersetzen, denn ich denke, dass du davon noch nie etwas gehört hast - sonst wäre deine ursprüngliche Frage gar nicht erst aufgekommen.

[ChrisTG]

Hallo,

gehört habe ich davon, sagen wir mal besser ich habe mit allgemein noch nicht großartig mit Grafikprogrammierung auseinandergesetzt.
Es ging mir in dem Fall auch primär darum, den alten Delphi-Quelltext partiell weiter nutzen zu können.
Die Grafik zeichnen kann ich leider nicht, denn sie liegt als Datei vor.

Gruß,
Chris

[Socke]

Die Grafik zeichnen kann ich leider nicht, denn sie liegt als Datei vor.

Denk dir eine bessere Ausrede aus Eine Datei kannst du natürlich auch in dein Programm laden:

Code: Alles auswählen

var
  b: TBitmap;
begin
  b := TBitmap.Create;
  b.LoadFromFile('myfile.bmp');
  b.Free;
end;

[ChrisTG]

So einfach geht das?
Prima, dann werd ich mich mal mit dem Thema Canvas auseinandersetzen.
Vielen Dank nochmal an alle hier!

Gruß,
Chris