SendMessage apua

uuppi

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

12

902

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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...

    • 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

    1. Marin pyöräili jalkakäytävällä. Aikuinen ihminen! Vai onko?

      https://www.seiska.fi/vain-seiskassa/hups-sanna-marin-ja-joni-rakas-kaahasivat-fillareilla-jalkakaytavalla-paljonkertova
      Maailman menoa
      220
      2864
    2. TULI PALO HAAPAVEELLÄ

      Omakotitalo tuhoutui tulipalossa Haapavedellä varhain torstaiaamuna, pelastuslaitos kertoo. Palokunnan saapuessa kohtee
      Haapavesi
      16
      1744
    3. Niina Lahtinen avautuu erikoisesta "krapula-metodista" ennen suoraa lähetystä: "Kuin mulla olisi..."

      Kiitos, Niina! Upeasti vedit TTK-parketilla. Tsemppiä tuleviin tansseihin vaikkapa tuolla "krapulametodilla"! Lue Lahti
      Tanssii tähtien kanssa
      29
      1002
    4. Miten sua nyt

      Pitäisi lähestyä tai ylipäätään suhtautua mihinkään. Kyselenkö kuulumisia vai juttelenko päivän säästä. Vai hymyilenkö p
      Ikävä
      76
      999
    5. Toivon vain

      Ettet enää välittäisi. Kun näet niin ohitatko. Ettei silmissäsi loistaisi enää mikään minut nähdessäni. Ei sitä pilkettä
      Ikävä
      4
      969
    6. Harmailla autoilla liikkuvat vorot

      Keitäs sankareita nämä ovat? https://www.kainuunsanomat.fi/artikkeli/harmailla-autoilla-liikkuvat-vorot-ovat-tehneet-us
      Suomussalmi
      16
      881
    7. Jenni Haukio ja Sauli Niinistö

      Ero. Näinhän se menee kun ikäeroa on riittävästi. https://www.iltalehti.fi/viihdeuutiset/a/1c94ff48-185d-4d95-aff5-3e93
      Maailman menoa
      22
      834
    8. Kuka on tämä henkilö

      jonka pullukkaprinsessa kertoilee haisevan? Ennen nykyistä se oli erään seksuaalirikoksesta tuomitun tyypin kanssa, muit
      Kotimaiset julkkisjuorut
      93
      812
    9. Minä näen sinut

      Näen kuka olet. Osaan laskea. Olen todella, siis todella hämmentynyt, ihastunut, vaivautunut ja ehkä eniten todella epäu
      Ikävä
      26
      785
    10. Hyvää huomenta ja kivaa päivää

      hyvää huomenta ja kivaa päivää 😊🌞☕❤️
      Ikävä
      164
      772
    Aihe