Bildschirm unter einem gewünschten Namen kopieren

[taktaky]

Hallo,

mit dem Code kann man den Bildschirm kopieren
ich möchte aber den namen vom Bild jedes mal bestimmen statt ein konstanter Name

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
const
  FileName = '.\test.jpg';
//ich möchte aber so : FileName = Edit1.text; 
// es wird leider nicht akzeptiert !!!
  JpgQuality = 98; // 1..100
var
  DeskHdC : Longint;
  JpgImg: TJPEGImage;
  BmpImg: TBitmap;
begin
  JpgImg := TJPEGImage.Create;
  BmpImg := TBitmap.Create;
  try
    DeskHdc := GetDC(GetDesktopWindow);
    BmpImg.Height := Screen.Height;
    BmpImg.Width := Screen.Width;

    BitBlt(BmpImg.Canvas.Handle,
           0,
           0,
           Screen.Width,
           Screen.Height,
           DeskHdc,
           0,
           0,
           SRCCOPY);

    JpgImg.Assign(BmpImg);

    if FileExists(FileName) then DeleteFile(FileName);

    JpgImg.CompressionQuality := JpgQuality;
    JpgImg.SaveToFile(FileName);

    //Previewimage
    Image1.Picture.Assign(BmpImg);
  finally
    JpgImg.Free;
    BmpImg.Free;
  end;
end;

Ich möchte also den Namen Bild-namen in Edit1.Text eingeben
warum geht es nicht ?!
Statt FileName = '.\test.jpg';
soll so : FileName = Edit1.text;

[Billi Berserker]

Das meinst du jetzt nicht ernst oder? :wall:

ich empfehle dir drigends dir irgendwie auch nur ansatzweise grundlegende Programmierkentnisse anzueignen.
http://www.dsdt.info/grundlagen/sprache/
http://www.dsdt.info/tutorials/crashkurs/?page=3

was du hier betreibst ist übelstes copy/paste von Quellcode den du sonstwo findest ohne auch nur ansatzweise zu verstehen was du eigentlich machst.


Schau dir den Quellcode mal ein wenig an, denk drüber nach und dann siehst du sofort die Lösung.
Warum du den Wert aus Edit1.Text nicht auf FileName zuweisen kannst sagt dir das Fettgedruckte Wort in der zweiten Zeile...

[taktaky]

Zitat:

Zitat von Billi Berserker

Warum du den Wert aus Edit1.Text nicht auf FileName zuweisen kannst sagt dir das Fettgedruckte Wort in der zweiten Zeile...

Ich möchte den Teil die Konstant ".\test.jpg" natürlich in Edit1.Text eingeben

Ist das ein Problem?

Oder soll ich den Teil von Const zu Var ändern ?

[Billi Berserker]

Konstanten haben die Eigenschaft das man sie im Normalfall zur Laufzeit nicht mehr ändern kann... (wo wäre sonst der Unterschied zu Variablen?)
Was du also brauchst ist eine Variable auf die du den Wert von Edit1.Text zuweise kannst...

denk mal drüber nach...

[Mackhack]

Zitat:

Zitat von taktaky

Zitat:

Zitat von Billi Berserker

Warum du den Wert aus Edit1.Text nicht auf FileName zuweisen kannst sagt dir das Fettgedruckte Wort in der zweiten Zeile...

Ich möchte den Teil die Konstant ".\test.jpg" natürlich in Edit1.Text eingeben

Ist das ein Problem?

Oder soll ich den Teil von Const zu Var ändern ?

Wie waere es mit FileName := Edit1.Text?

Vlt. auch mal den Cursor auf Const setzen und F1 druecken zur Abwechslung mal was anderes als CTRL+C und CTRL+V :twisted:

[taktaky]

Zitat:

Zitat von Mackhack

Wie waere es mit FileName := Edit1.Text?

Das habe ich gemacht ohne Erfolg !

ich habe auch versucht Filename als lokale variable zu deklarieren :
var FileName : Edit1.Text; auch geht nicht !

[Billi Berserker]

Zitat:

Zitat von Billi Berserker

http://www.dsdt.info/grundlagen/sprache/
http://www.dsdt.info/tutorials/crashkurs/?page=3

lesen soll helfen... :wall:

das ist so eine echt Grundlegende sache, ich bitte darum das NIEMAND die fertige lösung postet.
Wenn du das nicht selber hinbekommst solltest du es komplett sein lassen.

[taktaky]

Zitat:

Zitat von Billi Berserker

Zitat:

Zitat von Billi Berserker

http://www.dsdt.info/grundlagen/sprache/
http://www.dsdt.info/tutorials/crashkurs/?page=3

lesen soll helfen... :wall:

das ist so eine echt Grundlegende sache, ich bitte darum das NIEMAND die fertige lösung postet.
Wenn du das nicht selber hinbekommst solltest du es komplett sein lassen.

Du hast Recht :mrgreen:
Nun habe ich den Teil so geändert:

Delphi-Quellcode:

var Filename: String;
...
begin
filename:=Edit1.Text
...

Dann funktioniert

Danke!

[DeddyH]

Na also, geht doch. :mrgreen:

[taktaky]

Zitat:

Zitat von DeddyH

Na also, geht doch. :mrgreen:

Das war gegen 02:00 morgen :mrgreen: