THGG i odbiór wiadomości

0
procedure TForm1.HGG1Message(Sender: TObject; GGNumber: Integer;
  MessageContent: String; MessageTime: TDateTime);
var
  Reply : string;
  Row : integer;
begin
 Memo1.Lines.Add('['+DateToStr(MessageTime)+']('+IntToStr(GGNumber)+') '+MessageContent);
 TmpEdit.Text := MessageContent;
    Command.FindRow(TmpEdit.Text,  Row);

 if  Row = -1 then
  Reply := 'Nie ma u nas takiej komendy' else
 begin
  Reply := Command.Values[Edit1.Text];
 end;

  HGG1.SendMessage(GGNumber, Reply, []);
end;

mam taki kod i próbowałem i nie działa. Piszę sobie z innego numeru do tego bota i tam w Message nie pojawia się nic. Piszę słowo witaj (powinno odpisać automatycznie słowo a no witaj) i także nie odpisuje :(

Dlaczego ?

Host:217.17.41.93
Port:8074

Ludzie ratujcie !

0

Nikt nie wie dlaczego tak się dzieje :) ?

0
  1. Było. Szukaj
  2. Czytaj komentarze do artów
  3. Już 2 osobie to mówię
0

Pewnie słabo szukałem ale nie rozwiązałem problemu. IP ustawione takie jak w komentarzach pod artykułem i nic :(

Pomoc :)

0

To nie chodzi o IP [!!!]
Chodzi o linijkę

  Reply := Command.Values[Edit1.Text];
0

To znaczy że w tej linijce tkwi błąd. Ale w artykule było tak więc chyba powinno działać a właśnie nie działa

0

OnMessage :

procedure TForm1.HGG1Message(Sender: TObject; GGNumber: Integer;
  MessageContent: String; MessageTime: TDateTime);
var
  Reply : string;
  Row : integer;
begin
 Memo1.Lines.Add('['+DateToStr(MessageTime)+']('+IntToStr(GGNumber)+') '+MessageContent);
 TmpEdit.Text := MessageContent;
    Command.FindRow(TmpEdit.Text,  Row);

 if  Row = -1 then
  Reply := 'Nie ma u nas takiej komendy' else
 begin
  Reply := Command.Values[Command.Keys[Row]];
 end;

  HGG1.SendMessage(GGNumber, Reply, []);
end;
0

W ogóle nie dochodzą mi wiadomości. Dla sprawdzenia wziąłem taki kod:

 Memo1.lines.add('Rozmówca: '+IntToStr(GGNumber));

Napisałem z drugiego komputera i nie dochodzi nic :(

Dlaczego :( ?

Tak wyglądają moje ustawienia (w Events mam tylko ten kod poadny powyżej w OnMessage)
user image

0

Może głupie pytanie: jesteś zalogowany?

0

Tak. Mam ustawiony status i opis :) Ze swojego gg widzę właśnie ten opis i status ale jak już napiszę ze swojego gg do tego programu to już w Memo1 nie pojawia się tekst :)

0

Ja bym zrobił nowy numer bo możliwe że ten ci zablokowali na pewien czas i niemożna z niego odbierać lub wysyłać wiadomości .

1 użytkowników online, w tym zalogowanych: 0, gości: 1