Bilddatei erstellen

[marc.beeh]

Hallo,
wie kann ich eine Bilddatei (.bmp, .jpg oder .gif) erstellen, die eine einfache tabellarische Auflistung von bestimmten Werten (aus einem Array) enthält?

[Plague]

Meinst Du sowas wie einen Screenshot?

Gruß
Thomas

[marc.beeh]

Ja, im Prinzip schon. Es geht halt daraum eine Tabelle in eine Bilddatei zu bekommen. Ob dazu ein Screenshot von einer bestehenden Tabelle gemacht wird oder die Tabelle erst für die Bilddatei gezeichnet wird ist an sich egal.

[Jörn]

Ich glaube er meint so was ähnliches... quasi ein Bild mit ner Tabelle drin, wo dann Werte drinstehen...

[Markus K.]

Hallo marc.beeh,
folgerderweise kannst du ein StringGrid in eine Image zeichnen. Vielleicht hilft es dir ein wenig.
StringGrid1.PaintTo(Image1.Canvas.Handle,0,0); Tschüß Markus

[S2B]

Hi,
wenn du einen Screenshot in eine Datei speichern willst, dann schau mal hier: screentofile.
Du müsstest halt dann die Bildgröße und den Bildausschnitt auf die Tabelle anpassen.

Gruß
S2B

[braingrenade]

Moin !

Meinst du das ungefähr so :

Delphi-Quellcode:

uses ...graphics;

...

Procedure Draw;
var bmp : Tbitmap;
begin
bmp := tbitmap.create;
bmp.pixelformat := pf24bit;
bmp.height := 480;
bmp.width := 640;
bmp.Canvas.Brush.Color := clblue;
bmp.Canvas.FrameRect(rect(20,20,620,460));
bmp.Canvas.Brush.Color := clwhite;
bmp.Canvas.Font.Color := clred ;
bmp.Canvas.TextOut(30,30,'Test');
form1.Canvas.Draw(0,0,bmp);
bmp.Destroy;
end;

[marc.beeh]

Ok, erstmal danke für eure zahlreichen Antworten.

Diese Variante schein mir am geeignetsten:

Zitat von Markus K.:

StringGrid1.PaintTo(Image1.Canvas.Handle,0,0);

Was mache ich damit dann weiter? Wie erstelle ich daraus eine Bilddatei?

[Markus K.]

Hallo marc.beeh,
da gibt es mehrere Möglichkeiten. Hier ist mal ein Beispiel:

Delphi-Quellcode:

procedure TForm1.BSpeichernClick(Sender: TObject);
begin
     if SavePictureDialog1.Execute
     then Image1.Picture.SaveToFile(SavePictureDialog1.FileName);
end;

Wenn du unter uses noch jpeg einträgst, kannst du das Bild auch als Jpeg speichern.

Tschüß Markus

[fkerber]

Hi!

Delphi-Quellcode:

StringGrid1.PaintTo(Image1.Canvas.Handle,0,0);
Image1.Picture.SaveToFile('c:\test.bmp');

Ciao fkerber