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
945
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
- 917462
- 403602
Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘1021836- 241040
Taas ryssittiin oikein kunnolla
r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html32923Valtimon Haapajärvellä paatti mäni nurin
Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,27901Rakastuminenhan on psykoosi
Ei ihme että olen täysin vailla järkeä sen asian suhteen. Eipä olis aikoinaan arvannut, että tossa se tyyppi menee, jonk53807Tähän vaivaan ei auta kuin kaksi asiaa
1. Tapaaminen uudestaan tai 2. Dementia Anteeksi kun olen olemassa🙄60729Olisinko mä voinut käsittää sut väärin
Nyt mä kelaan päässäni kaikkea meidän välillä tapahtunutta. Jos mä sit kuitenkin tulkitsin sut väärin? Se, miten sä käyt31722Känniläiset veneessä?
Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v26652