Ĺadny brzuch
Napisałem coś takiego
procedure TForma.HGGMessage(Sender: TObject; GGNumber: Integer; MessageContent: String; MessageTime: TDateTime); begin IF MessageContent = 'bla' then HGG.SendMessage(0000000, 'tekst'); end;
Ten fragment kodu, jak sie domyslacie, ma za zadanie odebrac polecenie (czyli po prostu wiadomosc) które przyjdzie poprzez sieć
GG, sprawdzić czy jest to tekst "bla" i w przypadku gdy tak jest odesłać wiadomosc "tekst" na numer z którego została wysłana poprzednia.
Po uruchomieniu programu i wysłaniu z GG wiadomosci "bla" dostaje odpowiedz "tekst". Gdy próbuje poraz kolejny wysłac wiadomosc "bla" nie otrzymuje żadnej odpowiedzi. Program dostaje moje wiadomosci bo sprawdzałem to, ale nie chce na nie odpowiadac. Czym to moze byc spowodowane ?
//Teraz naprawde nie czaje o co mu biega, dopisałem coś takiego
procedure TForma.HGGMessage(Sender: TObject; GGNumber: Integer; MessageContent: String; MessageTime: TDateTime); begin IF MessageContent = 'bla' then HGG.SendMessage(0000000, 'tekst'); IF MessageContent <> 'bla' then HGG.SendMessage(0000000, MessageContent); end;
Wysyłam do programu wiadomosc "bla" a ten mi uparcie odpisuje "bla" twierdząc, że "bla" i "bla" to nie te same wyrazy... :blink: Nie czaje
Użytkownik KAV edytował ten post 30 grudzień 2006, 00:49
Sprawdz czy w MessageContent nie ma jakiegos entera lub znaku zerowego i sprawdz dlugosc...
P.S. Mala rada - rob 'then' w tej samej lini co if i dawaj wciecia - bedzie Ci latwiej potem to czytac ;).
Sprawdz czy w MessageContent nie ma jakiegos entera lub znaku zerowego i sprawdz dlugosc...
P.S. Mala rada - rob 'then' w tej samej lini co if i dawaj wciecia - bedzie Ci latwiej potem to czytac ;).
Zamiast "bla" wrzuciłem 6-cio literowy wyraz. Zmierzyłem jego długość przed pierwszym IF - za pierwszym razem wynosiła 6 i program odpisał. Kolejny raz wyslalem ten sam wzraz do programu i tym razem odczytal jego dlugosc jako 15... Gdyby bylo 12 to jeszcze widzialbym w tym jakis sens, ale tak to nie wiem
Zamiast "bla" wrzuciłem 6-cio literowy wyraz. Zmierzyłem jego długość przed pierwszym IF - za pierwszym razem wynosiła 6 i program odpisał. Kolejny raz wyslalem ten sam wzraz do programu i tym razem odczytal jego dlugosc jako 15... Gdyby bylo 12 to jeszcze widzialbym w tym jakis sens, ale tak to nie wiem
Hmm, to sprawdz co tam siedzi ;]. Wyswietl wszystko sobie, albo ustaw brakepoint i sprawdz co tam jest ;).
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
procedure TForma.HGGMessage(Sender: TObject; GGNumber: Integer; MessageContent: String; MessageTime: TDateTime); begin IF MessageContent = 'bla' then HGG.SendMessage(0000000, 'tekst'); end;
Ten fragment kodu, jak sie domyslacie, ma za zadanie odebrac polecenie (czyli po prostu wiadomosc) które przyjdzie poprzez sieć
GG, sprawdzić czy jest to tekst "bla" i w przypadku gdy tak jest odesłać wiadomosc "tekst" na numer z którego została wysłana poprzednia.
Po uruchomieniu programu i wysłaniu z GG wiadomosci "bla" dostaje odpowiedz "tekst". Gdy próbuje poraz kolejny wysłac wiadomosc "bla" nie otrzymuje żadnej odpowiedzi. Program dostaje moje wiadomosci bo sprawdzałem to, ale nie chce na nie odpowiadac. Czym to moze byc spowodowane ?
//Teraz naprawde nie czaje o co mu biega, dopisałem coś takiego
procedure TForma.HGGMessage(Sender: TObject; GGNumber: Integer; MessageContent: String; MessageTime: TDateTime); begin IF MessageContent = 'bla' then HGG.SendMessage(0000000, 'tekst'); IF MessageContent <> 'bla' then HGG.SendMessage(0000000, MessageContent); end;
Wysyłam do programu wiadomosc "bla" a ten mi uparcie odpisuje "bla" twierdząc, że "bla" i "bla" to nie te same wyrazy... :blink: Nie czaje
Użytkownik KAV edytował ten post 30 grudzień 2006, 00:49
Sprawdz czy w MessageContent nie ma jakiegos entera lub znaku zerowego i sprawdz dlugosc...
P.S. Mala rada - rob 'then' w tej samej lini co if i dawaj wciecia - bedzie Ci latwiej potem to czytac ;).
Sprawdz czy w MessageContent nie ma jakiegos entera lub znaku zerowego i sprawdz dlugosc...
P.S. Mala rada - rob 'then' w tej samej lini co if i dawaj wciecia - bedzie Ci latwiej potem to czytac ;).
Zamiast "bla" wrzuciłem 6-cio literowy wyraz. Zmierzyłem jego długość przed pierwszym IF - za pierwszym razem wynosiła 6 i program odpisał. Kolejny raz wyslalem ten sam wzraz do programu i tym razem odczytal jego dlugosc jako 15... Gdyby bylo 12 to jeszcze widzialbym w tym jakis sens, ale tak to nie wiem
Zamiast "bla" wrzuciłem 6-cio literowy wyraz. Zmierzyłem jego długość przed pierwszym IF - za pierwszym razem wynosiła 6 i program odpisał. Kolejny raz wyslalem ten sam wzraz do programu i tym razem odczytal jego dlugosc jako 15... Gdyby bylo 12 to jeszcze widzialbym w tym jakis sens, ale tak to nie wiem
Hmm, to sprawdz co tam siedzi ;]. Wyswietl wszystko sobie, albo ustaw brakepoint i sprawdz co tam jest ;).