Восстановил пример из книги Фленова “Delphi глазами Хакера”.
VCL приложение. Компоненты…
Код на кнопке…
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
begin ResultMemo.Clear; FindResult:=idWhois1.WhoIs(edit1.Text); //Форматирование и вывод текста while length(FindResult)>0 do begin iPos:=Pos(#10,FindResult); Line:=Copy(FindResult,1,iPos-1); ResultMemo.Lines.Add(Line); Delete(FindResult,1,Length(Line)+1); end; end; |
Результат…
Также, для зоны .ru нужен какой-то другой хост… Тот, который встает по умолчанию – для .com и др. иностранных зон.
