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 !