string an externes Formular senden

**Q-Dog**

Guten morgen liebe Delphi-Praxis-Community,

ich habe folgendes Problem:
Ich möchte gerne in Delphi den obersten Eintrag einer Listbox auslesen und diesen String dann an ein externes Formular (was nicht zu Delphi gehört) also zum Beispiel im Inet Explorer (Firefox o.ä) senden.

Die Möglichkeit Tasten(kombinationen) zu simulieren ist mir durchaus bekannt, z.B. Strg+V

markieren

Delphi-Quellcode:

			      
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);

keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0);

keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0);

keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0)

Wie sieht es aber aus wenn ich einen ganzen String versenden möchte?

MfG Q-Dog

**spaxxn**

Sorry, aber ich habe da gerade leichte Verständnisprobleme...

Du möchtest einen String an irgendein Programm schicken? Z.B. Hey Firefox hier ist ein String für dich? Und was soll dieser dann damit anfangen?

**Q-Dog**

Sry, wenns etwas kompliziert ausgedrückt ist, also nochmal ^^

Ich möchte gerne den obersten Eintrag einer Listbox auslesen (dieser ist vom Datentyp ein String).
Diesen String möchte ich jetzt an ein externes Formular (nicht Delphi - also z.B. Firefox, Notepad, Word usw.) senden.

Bisher habe ich das ganze rel. konventionell gelöst:

zusammenfalten · markieren

Delphi-Quellcode:

			      x := 500;

      y := 450;

      SetCursorPos(x,y);

      mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 500, 0);

      mouse_event(MOUSEEVENTF_LEFTUP, x, y, 500, 0);

      sleep(1000);

      // Strg V 

      keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);

      keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0);

      keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0);

      keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0)

Also praktisch den String erst in die Zwischenablage kopiert (mit Strg C) und dann per Strg V eingefügt.

Meine Frage ist jetzt wie ich diesen unnötigen Schritt mit "in die Zwischenablage kopieren und dann einfügen" umgehen kann, indem ich gleich einen vorher in einer Listbox definierten String einfüge.

Zum Beispiel so (der Code klappt natürlich nicht):

markieren

Delphi-Quellcode:

			keybd_event('dieser String', MapVirtualKey('dieser String', 0), 0, 0);

keybd_event('dieser String', MapVirtualKey('dieser String', 0), KEYEVENTF_KEYUP, 0);

Hoffe es ist etwas verständlicher

**spaxxn**

Externe Programme bieten Dir höchstens einen Zugriff über eine bereitgestellte API, beim Start vielleicht noch über Kommandozeilenparameter.

**Q-Dog**

Habe jetzt diesen Code gefunden:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure SendKeyString(KStr: String);

var

  Scan: SHORT;

  key: Byte;

  i: Integer;

begin

  for i := 0 to length(KStr) do begin

    key := Byte(Kstr[i]);

    Scan := MapVirtualKey(key, 0);

    keybd_event(key, Scan, 0, 0);

    keybd_event(key, Scan, KEYEVENTF_KEYUP, 0);

  end;

end;

Allerdings übernimmt er nur Großbuchstaben und wandelt sie in Kleinbuchstaben um. Außerdem werden Sonderzeichen außer Acht gelassen.

Ne Idee wie man das noch ändern könnte?

MfG Q-Dog

/Edit
Nach langem Suchen endlich selbst fündig geworden

http://www.delphipraxis.net/internal...ct.php?t=85418

string an externes Formular senden

string an externes Formular senden

Re: string an externes Formular senden

Re: string an externes Formular senden

Re: string an externes Formular senden

Re: string an externes Formular senden

Forumregeln

spaxxn Registriert seit: 19. Nov 2004 253 Beiträge Delphi XE2 Enterprise	#2 Re: string an externes Formular senden 21. Mai 2008, 08:51 Sorry, aber ich habe da gerade leichte Verständnisprobleme... Du möchtest einen String an irgendein Programm schicken? Z.B. Hey Firefox hier ist ein String für dich? Und was soll dieser dann damit anfangen?
	Zitat

spaxxn Registriert seit: 19. Nov 2004 253 Beiträge Delphi XE2 Enterprise	#4 Re: string an externes Formular senden 21. Mai 2008, 09:30 Externe Programme bieten Dir höchstens einen Zugriff über eine bereitgestellte API, beim Start vielleicht noch über Kommandozeilenparameter.
	Zitat