Ostatnio zabrałem się za pisanie programu do grup dyskusyjnych, ale szybko stanąłem w miejscu z powodu jednego głupiego błędu i nie mogę dojść co właściwie go powoduje :[
Exception class ERangeError with message 'Range check error'
Ten błąd wyskakuje dopiero po ściągnięciu 201 nazw grup dyskusyjnych z serwera więc chyba z połączeniem jest wszystko w porządku :-/
procedure TForm1.FormCreate(Sender: TObject);
begin
IdNNTP1.Host:='news.tpi.pl';
IdNNTP1.Connect;
IdNNTP1.GetNewsgroupList; // tutaj wyskakuje błąd
end;
procedure TForm1.IdNNTP1NewsgroupList(ANewsgroup: string; ALow, AHigh: Integer;
AType: string; var ACanContinue: Boolean);
begin
ListBox1.Items.Add(ANewsgroup);
end;