Hallo,
Ich bin Delphiangänger, und momentan versuche ich diese wundarbare Sparche zu lernen, und ich hoffe, dass ihr mir dabei helft.
Ok, mein Problem lautet:
Ich wollte einen Formularinhalt als Bild JPEG in einem Ordner speichern, und das ging ganz gut, aber aber wenn ich einen anderen Formularinhalt speichern wollte, wird der erste Formularinhalt überschrieben. Wie kann ich mehrere Formularinhalte in einem Ordner speichern??
für euere Vorschläge danke ich euch im Voraus.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,jpeg ;
type
TForm1 =
class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Edit3: TEdit;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
a,b,c: real;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
a := StrToFloat(Edit1.text);
b := StrToFloat(Edit2.text);
c := a * b;
Edit3.Text := FloatToStr(c);
end;
procedure SaveJPEG(Form: TCustomForm;
const Path:
String);
var
Bitmap: TBitmap;
JPEG: TJPEGImage;
begin
Bitmap := Form.GetFormImage;
JPEG := TJPEGImage.Create;
JPEG.Assign(Bitmap);
JPEG.SaveToFile(Path);
JPEG.Free;
Bitmap.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SaveJPEG(Self, '
C:\Dokumente und Einstellungen\BEN\Desktop\Delphi5\Form1.jpg');
end;
end.