Вот код,
| Код |
try
HTTPConn:= TIdHTTP.Create(nil);
HTTPConn.Request.UserAgent:= 'USER-AGENT: NULL';
//SearchString := http://www.google.com/search?hl=ru&q=' + AnsiReplaceStr(Searchstr,' ','%20')+'&lr=lang_ru';
SearchResults:= HTTPConn.Get(SearchString);
... ... ...
except
on E: Exception do
begin
ShowMessage(E.Message);
Result:= False;
end;
end;
|
делает поиск по Searchstr. Раньш все работало нормально, а теперь выдает ощибку 'Range check error' при HTTPCon.Get(SearchString), код не менял. Помогите понять в чем проблема, где не так. |
)