Datei umbenennen, pfad einlesen!

[skinzone]

Hey,
folgendes:
1. Ich möchte ein Zielverzeichnis in ein edit feld eingeben, und dann meinen Screenshot in diesen Pfad speichern! Wie mach ich das!
Wie man einen Screenshot macht weiß ich.
2. Ich möchte diesen Screenshot umbenennen bevor er gespeichert wird!

mfg

[Micha88]

Zitat:

Ich möcte einen Pfad mit einem Edit feld auslesen

Selbst das verstehe ich schon nicht.

[skinzone]

Bischen blöd formuliert!

[himitsu]

Wie machst du denn den Screenshot?
Weil ich verstehe nicht,was du da umbenennen willst.

TEdit + 'nen Button + TSaveDialog und schon kannst du da ein Verzeichnis auswählen.
(damit kann man sich sowas basten, wie diese Upload-Eingabefelter auf Webseiten)

[skinzone]

Delphi-Quellcode:

procedure ScreenToFile(aFileName: string);
var
  Bitmap: TBitmap;
  Canvas: TCanvas;
begin
  Canvas := TCanvas.Create;
  try
    Canvas.Handle := GetWindowDC(0);
    try
      Bitmap := TBitmap.Create;
      try
        Bitmap.Width := Screen.DesktopWidth;
        Bitmap.Height:= Screen.DesktopHeight;
        Bitmap.PixelFormat := pfDevice;
        BitBlt(Bitmap.Canvas.Handle, 0, 0, Pred(Screen.DesktopWidth), Pred(
        Screen.DesktopHeight), Canvas.Handle, Screen.DesktopLeft,
        Screen.DesktopTop, Bitmap.Canvas.CopyMode);
        Bitmap.SaveToFile(aFileName);
      finally
        Bitmap.Free;
      end;
    finally
      ReleaseDC(0, Canvas.Handle);
    end;
  finally
    Canvas.Free;
  end;
end;


begin
anzahl:=strtoint(e_anzahl.Text);
ziel:=e_ziel.Text;
i:=0;
repeat
    begin
    i:=i+1;
    screentofile('ziel');
    end;
until i = anzahl;

[Matze]

Ändere doch einfach den eingelesenen Text des Pfad-Edits oder was ist genau dein Problem?

[skinzone]

Ich glaub ich steh voll auf em Schlauch!
Ich les ja dan pfad ein, der kommt in die var ziel.
Dann möchte ich dass die datei benannt wird, und mit screentofile an dieses Ziel gespeichert wird!

[patti]

Hey,

also wenn ich dich richtig verstanden habe (bin mir da nicht ganz sicher), dann mach doch folgendes:

Delphi-Quellcode:

var anzahl : integer;
var ordner, pfad : integer;
begin
anzahl  := strtoint(e_anzahl.Text); 
ordner  := IncludeTrailingPathDelimiter(e_ziel.Text);
i:=0;
//
repeat 
    inc(i); // erhöht i um 1
    pfad := ordner + 'screenshot' + IntToStr(i) + '.bmp';
    //
    screentofile(pfad); 
until i = anzahl;

(ungetestet)

Vielleicht hilft dir das. Bei Fragen darfst du sie gerne stellen ;-)

[skinzone]

Bin eine rauchen gegangen und dann is es mir eingefallen wie es geht!
Trotzdem danke!
Mfg

[Matze]

Das gibt aber eine böse Schleife und die Screenshots sind vermutlich weitestgehend identisch. ;)

Ich habe noch gar nicht verstanden, was gemacht werden soll. Mit den Pfad-Funktionen kannst du die deinen Dateinamen in einem Pfad ändern lassen:

Delphi-Quellcode:

function ChangeFilename(Path: string; NewFilename: string): string;
var
  FileExtension: string;
  FilePath: string;
begin
  FilePath := ExtractFilePath(Path);
  FileExtension := ExtractFileExt(Path);

  Result := FilePath + NewFilename + FileExtension;
end;

Natürlich geht's auch kürzer und evtl. auch auf ganz anderem Weg:

Delphi-Quellcode:

function ChangeFilename(Path: string; NewFilename: string): string;
begin
  Result := ExtractFilePath(Path) + NewFilename + ExtractFileExt(Path);
end;

Sonst schaue dir einfach mal folgende Funktionen an, dann klappt das schon:

ExtractFilename
ExtractFilePath
ExtractFileExt
IncludeTrailingPathDelimiter

evtl. auch

ChangeFileExt

Wobei ChangeFileExt keine allzu gute Funktion ist bzw. nur bedingt funktioniert.

Grüße, Matze

Edit: Gut, dann hat sich das Thema ja erledigt. Wobei rauchen nicht so sinnvoll ist (ist ein anderes Thema :mrgreen: ). *stolzer Nichtraucher ist*

[patti]

Zitat:

Zitat von Matze

Das gibt aber eine böse Schleife und die Screenshots sind vermutlich weitestgehend identisch. ;)

Die Schleife sollte ohne Probleme funktionieren, solange "anzahl" sicher größer als 0 ist. Zur Sicherheit kann man ja ein

Delphi-Quellcode:

until i >= anzahl;

benutzen ;-)

Zu dem Problem mit den gleichen Screenshots: Einfach ein Sleep; bei jedem Schleifen-Durchgang verwenden und schon werden die Screenshots in zeitlichem Abstand gemacht ;-)

mfg

[skinzone]

wie genau mach ich des mit sleep??

[Matze]

Sleep => Sleep(1000); pausiert deine Anwendung 1000 ms = 1 s. Bzw. friert sie ein. Wenn, dann nutze Delay.

Und sei nicht so unselbstständig ...

[patti]

Du könntest es so machen:

Delphi-Quellcode:

repeat 
    inc(i); // erhöht i um 1
    pfad := ordner + 'screenshot' + IntToStr(i) + '.bmp';
    //
    screentofile(pfad);
    //
    Sleep(100); // Die Zahl in der Klammer gibt die Zeit im ms an, die gewartet werden soll
until i = anzahl;

Dabei musst du allerdings bedenken, dass dein Programm dann "eingefroren" ist. Während der Schleife kannst du dein Programm somit nicht mehr ansprechen.

Edit: Da war ich wohl zu langsam, aber wo bitteschön war der rote Kasten... :gruebel: