Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Formularinhalt in einem Ordner speichern (https://www.delphipraxis.net/124866-formularinhalt-einem-ordner-speichern.html)

alnourx 26. Nov 2008 15:00


Formularinhalt in einem Ordner speichern
 
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.

mkinzler 26. Nov 2008 15:02

Re: Formularinhalt in einem Ordner speichern
 
Den Namen der Zieldatei ändern

alnourx 26. Nov 2008 15:16

Re: Formularinhalt in einem Ordner speichern
 
Ja, du hast recht, aber ich will nicht jedesmal, wenn ich einen Formularinhalt speichern wollte, dass ich die Zieldatei ändere.
Zitat:

Zitat von mkinzler
Den Namen der Zieldatei ändern


Larsi 26. Nov 2008 15:17

Re: Formularinhalt in einem Ordner speichern
 
Zum Beispiel nummerieren? Oder mit Datum und Uhrzeit.

alnourx 26. Nov 2008 15:26

Re: Formularinhalt in einem Ordner speichern
 
Ja, das ist eine Idee, aber kann man nicht etwas im Code änderen, damit man diesen Aufwand spart.
Zitat:

Zitat von Larsi
Zum Beispiel nummerieren? Oder mit Datum und Uhrzeit.


taaktaak 26. Nov 2008 15:39

Re: Formularinhalt in einem Ordner speichern
 
Zitat:

kann man nicht etwas im Code änderen, damit man diesen Aufwand spart
Hmm, jede Änderung ist ein gewisser Aufwand - oder? Die Vorschläge sind doch gut. Numerieren ist problematisch, da du da prüfen müßtest, ob die Nummer schon vorhanden ist. Aber dem Dateinamen Datum und Uhrzeit hinzuzufügen ist eindeutig und schnell gemacht :wink:

alnourx 26. Nov 2008 15:53

Re: Formularinhalt in einem Ordner speichern
 
ok, danke für euere Vorschläge.
Ich habe eine zweite Frage, und hoffe, dass ich euch nicht belästigt habe.
Ich habe in diesem Formularinhalt 3 Editfelder, und will, dass diese Daten in diesen Editfeldern in einer Exceltabelle gespeichert werden. wie kann man das machen???

Zitat:

Zitat von taaktaak
Zitat:

kann man nicht etwas im Code änderen, damit man diesen Aufwand spart
Hmm, jede Änderung ist ein gewisser Aufwand - oder? Die Vorschläge sind doch gut. Numerieren ist problematisch, da du da prüfen müßtest, ob die Nummer schon vorhanden ist. Aber dem Dateinamen Datum und Uhrzeit hinzuzufügen ist eindeutig und schnell gemacht :wink:


taaktaak 26. Nov 2008 15:58

Re: Formularinhalt in einem Ordner speichern
 
Nein, keine Sorge, dafür ist das Forum ja gedacht.
Aber: Neue Frage, neuer Thread bitte!


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:25 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz