Clipboard Daten

[Deadinpac]

Hallo,

Ich habe mal eine frage wie kann ich die datein von der ZA Abfangen
Und in einer datei speichern so das wenn ich den PC Neustarte das mein tool die datein wieder in der ZA einfügt ????

[Christian Seehase]

Moin Deadinpac,

schau Dir doch mal die Klasse TClipboard an.
Mit deren Hilfe kannst Du das Cliboard auslesen bzw. Daten dort einfügen.

Da TClipboard nur das Windows API kapselt kannst Du Dir auch mal die entsprechenden Funktionen im PSDK ansehen.

[Deadinpac]

Ne es geht mir nur darum
ich habe auch schon bei delphi-groups.de das problem reingeschrieben
und die konnten mir irgendwie nicht helfen weil ich bin ein newbie und ich habe keine ahnung vom quelltext weil die haben mir es nur mit fachausdrücken es erklährt
denn ich möchte es in diesen schritten machen wenn es geht

uses clipbrd

Clipboard.open;
memo1.lines.loadfromclipboard;
memo1.lines.savetofile (c:\test.txt);
memo1.lines.loadfromfile (C:\test.txt);
memo1.lines.savetoclipboard;
clipboard.close;

Mit freundlichen gruß
deadinpac

[Christian Seehase]

Moin Deadinpac,

ich sagte ja schau Dir mal TClipboard an.

Wenn es Dir nur im Text in der Zwischenablage geht, kannst Du mit der Eigenschaft HasFormat(CF_TEXT) überprüfen, ob überhaupt Text enthalten ist und diesen dann auslesen.
Beim zurücksetzen, kann dann die Prüfung natürlich entfallen.

Delphi-Quellcode:

// Textinhalt der Zwischenablage sichern

var
  slWork : TStringList;

begin
  // Zwischenablage öffnen
  Clipboard.Open;
  try
    // Wenn kein Text enthalten ist, fertig
    if not Clipboard.HasFormat(CF_TEXT) then exit;
    // Der Einfachheit halber eine Stringliste zum Auslesen
    // dann lässt sich einfach SaveToFile benutzen
    slWork := TStringList.Create;
    try
      slWork.Text := Clipboard.AsText;
      slWork.SaveToFile('c:\temp\saveclipboard.txt');
    finally
      FreeAndNil(slWork);
    end;
  finally
    Clipboard.Close;
  end;
end;

Delphi-Quellcode:

// Textinhalt wieder in die Zwischenablage

var
  slWork : TStringList;

begin
  Clipboard.Open;
  try
    slWork := TStringList.Create;
    try
      slWork.LoadFromFile('c:\temp\saveclipboard.txt');
      Clipboard.SetTextBuf(PChar(slWork.Text));
    finally
      FreeAndNil(slWork);
    end;
  finally
    Clipboard.Close;
  end;
end;

[Luckie]

Nur damit wir uns nicht wiederholen. Hier der entsprechende Thread in der DG:
http://www.delphi-groups.de/YaBBSe/i...threadid=16297

[Deadinpac]

So Mit den QT Kann ich Text Speichern Und Einfügen. :)

So jetzt Kopiere ich Z.b eine " EXE-Datei " in die ZA
wenn ich die ZA Öffne (\Windows\System32\Clipbrd.exe)
Steht in der ZA Z.b " C:\Test.exe " so was muss ich am Oberen QT ändern
Damit ich die Datei " Test.exe " in einer z.b " .dat " Datei speichern kann und Nach ein Neustart Wieder in die ZA bekomme.

Mit freundlichen Gruß
Deadinpac

[Christian Seehase]

Moin Deadinpac,

das Thema Clipboard Formate ist recht umfangreich.
Wenn ich z.B. eine Datei markiere und kopiere erhalte ich folgende Liste von Datenformaten:

• DataObject
  Shell IDList Array
  CF_HDROP
  Preferred DropEffect
  Shell Object Offsets
  FileName
  FileNameW
  Ole Private Data

wobei nur CF_HDROP vordeklariert ist (in der Header Datei Winuser.h).
Kommt dieser Typ vor kann man sich weitere Informationen mit DragQueryFile ermitteln.
Die anderen sieben Formate wurden, vermutlich von OS selbst, zusätzlich registriert.

Es wäre wirklich sinnvoll, wenn Du Dir mal das Thema Clipboard im PSDK in Ruhe (weil umfangreich) zu Gemüte führst.
Das was Du vorhast für die vordefinierten Formate (CF_) zu erstellen ist schon nicht eben wenig.

[toms]

Zitat:

wie kann ich die datein von der ZA Abfangen

Hi!

Wer am richtigen Orte suchet, wird auch bald fündig:
http://www.swissdelphicenter.ch/de/showcode.php?id=945