| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите с Whois!!!!! [D6, WinXP]
Night Cold © (2003-12-12 13:35:00)
Кто знает или знает где найти как использовать компонент (whois)?
Vollter (2003-12-14 19:11:00) [1]
во тебе использование (TIdWhois-ом).
procedure TfmMain.Button1Click(Sender: TObject);
var
Line,
FindResult: string;
iPos: Integer;
begin
ResultsMemo.Clear;
FindResult := IdWhoIs.WhoIs(Edit1.Text);
while Length(FindResult) > 0 do
begin
iPos := Pos(#10, FindResult);
Line := Copy(FindResult, 1, iPos - 1);
ResultsMemo.Lines.Add(Line);
Delete(FindResult, 1, Length(Line)+1);
end;
end;
Yaro (2003-12-13 17:14:00) [2]
Удалено модератором
Примечание: А ты думал :)
Rouse_ (2003-12-12 14:17:00) [3]
+ F1
Rouse_ (2003-12-12 14:14:00) [4]
TIdWhois
| |
