Miten voi lähettää kokonaisen tekstipätkän SendMessage:lla ? Osaan vaan kirjottaa yksittäisiä kirjaimia peräkkäin
esim: kun painaa napista, ohjelma kirjottaa HELLO ja painaa enter.
procedure TMainForm.button1Click(Sender: TObject);
begin
SendMessage(uownd, WM_KEYDOWN, 72, 0);
SendMessage(uownd, WM_CHAR, 72, 0);
SendMessage(uownd, WM_KEYUP, 72, 0);
SendMessage(uownd, WM_KEYDOWN, 69, 0);
SendMessage(uownd, WM_CHAR, 69, 0);
SendMessage(uownd, WM_KEYUP, 69, 0);
SendMessage(uownd, WM_KEYDOWN, 76, 0);
SendMessage(uownd, WM_CHAR, 76, 0);
SendMessage(uownd, WM_KEYUP, 76, 0);
SendMessage(uownd, WM_KEYDOWN, 76, 0);
SendMessage(uownd, WM_CHAR, 76, 0);
SendMessage(uownd, WM_KEYUP, 76, 0);
SendMessage(uownd, WM_KEYDOWN, 79, 0);
SendMessage(uownd, WM_CHAR, 79, 0);
SendMessage(uownd, WM_KEYUP, 79, 0);
SendMessage(uownd, WM_KEYDOWN, VK_RETURN, 0);
SendMessage(uownd, WM_CHAR, VK_RETURN, 0);
SendMessage(uownd, WM_KEYUP, VK_RETURN, 0);
end;
miten vois lähettää kokonaisen tekstipätkän? tai käyttää noitten lukujen tilalla kirjaimia
niinku näin:
SendMessage(uownd, WM_KEYDOWN, 'H', 0);
SendMessage(uownd, WM_CHAR, 'H', 0);
SendMessage(uownd, WM_KEYUP, 'H', 0);
SendMessage(uownd, WM_KEYDOWN, 'E', 0);
SendMessage(uownd, WM_CHAR, 'E', 0);
SendMessage(uownd, WM_KEYUP, 'E', 0);
SendMessage(uownd, WM_KEYDOWN, 'L', 0);
SendMessage(uownd, WM_CHAR, 'L', 0);
SendMessage(uownd, WM_KEYUP, 'L', 0);
SendMessage(uownd, WM_KEYDOWN, 'L', 0);
SendMessage(uownd, WM_CHAR, 'L', 0);
SendMessage(uownd, WM_KEYUP, 'L', 0);
SendMessage(uownd, WM_KEYDOWN, 'O', 0);
SendMessage(uownd, WM_CHAR, 'O', 0);
SendMessage(uownd, WM_KEYUP, 'O', 0);
incompatible types 'Integer' and 'Char' :(
auttakaa joku :P
SendMessage apua
12
915
Vastaukset
- sdfuhsidhfiu
minne sitä yrität lähettää? jos johonkin ikkunacontrolliin, edit boxiin tms. niin voit käyttää WM_SETTEXT-messagea
- sfaggdsad
Teen peliin Ultima Online eräänlaista työkalua joka sitten kirjottaa komentoja pelissä.
En ole varma voiko peliin lähettää valmiita lauseita vaan pelkkiä kirjaimia. Jos ei voi niin haluisin kyllä tietää paremman keinon kun ladella SendMessageja pitkän liudan peräkkäin.
- kimmo_erkki
var
src_data : TCopyDataStruct;
...
SendMessage(TrgWnd, WM_COPYDATA, SrcWnd, Integer(@src_data));
muista kuitenkin että struktuurissa yms str määrittelyssä, annat merkkijonolle sopivan pituuden, esmes:
...
var
str : String[32];
...
ja voit myös käyttää sendmessagen sijaan SendMessageTimeout- funktiota, postmessage ei onnistu, koska tieto täytyy kopioida, mikä taasen post:n kanssa ei vetele...- Uuppi
Ok, kiitos avusta.
- uuppi
Niin, että en saanut toimimaan sitä tuolla keinolla..
- kimmo_erkki
Uuppi kirjoitti:
Ok, kiitos avusta.
Postaan sulle myöhemmin toimivan esimerkin.. Jos haluut niin pistä se nykynen koodi (lähetys/vastaanotto) tänne ni varmaan tulee nopeasti apua...
- chr_ja_ ord
Toimiiko ord('h') tuossa Sendmessagessa?
- erä;jorma
"miten vois lähettää kokonaisen tekstipätkän? tai käyttää noitten lukujen tilalla kirjaimia"
Voitan aina luoda oman merkistön! Omalla taulukolla tulkkaat viestit, mutta suosittelen opiskelemaan vähän syvemmältä tätä tietotekniikkaa, vaikka merkistöihin nämä nykyset systeemitkin periytyy...- 72,69,76,76,79
Ainakin tuon ( http://wiki.lazarus.freepascal.org/ASCII ) ASCII-taulukon mukaan nuo numeroarvot vastaavat ASCII-merkkejä.
- Uuppi
Keksin tällasen keinon.. ainakin vähän parempi kuin edellinen. procedure Say(kirjain: widechar); begin SendMessage(uownd, WM_KEYDOWN, ord(kirjain), 0); SendMessage(uownd, WM_CHAR, ord(kirjain), 0); SendMessage(uownd, WM_KEYUP, ord(kirjain), 0); end; procedure Enter(); begin SendMessage(uownd, WM_KEYDOWN, VK_RETURN, 0); SendMessage(uownd, WM_CHAR, VK_RETURN, 0); SendMessage(uownd, WM_KEYUP, VK_RETURN, 0); end; procedure TForm1.Button1Click(Sender: TObject); begin Say('h'); Say('e'); Say('l'); Say('l'); Say('o'); Enter; end;
- vaikkapa näin
Tuota voisi mahdollisesti kehittää vaikkapa näin: ... var s:string; i:integer; begin s:= 'hello'; i:=1; while i
- uuppi
vaikkapa näin kirjoitti:
Tuota voisi mahdollisesti kehittää vaikkapa näin: ... var s:string; i:integer; begin s:= 'hello'; i:=1; while i
joo tajusin jo ton
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Vakava rikosepäily Seinäjoella
Ilkka ei taaskaan tiedä mitään mutta hesalaiset kertoo: https://www.is.fi/kotimaa/art-2000010959325.html412591Mitä on woketus?
Täälläkin hoetaan usein sanaa "woketus". Mitä se tarkalleen ottaen tarkoittaa? Ilmeisesti sen käyttäjät ymmärtävät sen k3952090Olet saanut kyllä tunnisteita
Itsestäsi ja meistä. Mutta mikä siinä on, ettet kirjoita etkä anna itsestäsi merkkejä. Ellei ole kysymys siitä, mikä ens201832Oletko jo luovuttanut?
Joko olet luovuttanut kaivatun suhteen ja hyväksynyt, että mitään ei tule?1381714Ikääntyvien tilanne Suomessa on järkyttävä - Hoivakotiin ei pääse, vaan joutuu selviytymään yksin
Ikääntyvien tilanne Suomessa on järkyttävä… Hoivakoteihin sijoittamista vältellään, koska hoito on kallista ja hyvinvoin1191583Mies pakko olla rehellinen
Kiinnostuin koska olet tosi komea ja sulla on ihana puheääni. Olen aika pinnallinen sitten kai... 😓 kyllä olet tosi rau151511Hirvenmaitojuusto
Olin Prisman juustohyllyllä kun vierestä alkoi kuulua kamala paapatus. Siinä oli vanha muori, joka räyhäsi raivokkaasti,01112Kristo Salminen, 52, riisuutui - Paljasti Iso-Börjen tatuoinnit - Somekansan tuomio yksimielinen
Iso-Börje, tuo iso, tatuoitu, yltiöromanttinen ja aika kuuma rikollispomo - vai mitä mieltä sinä olet? Lue lisää ja kat211093- 731005
Kerro mulle miksi juuri me
Kohdattiin? Tässä elämässä. Vaikka ollaan edelleen tutut tuntemattomat. Se on omituinen tunne.63915