Текущий архив: 2004.02.17;
Скачать: CL | DM;

Вниз

Помогите с Whois!!!!!   Найти похожие ветки 

← →
Night Cold   (2003-12-12 13:35) [0]

Кто знает или знает где найти как использовать компонент (whois)?

---

← →
Rouse_ ©   (2003-12-12 14:14) [1]

TIdWhois

---

← →
Rouse_ ©   (2003-12-12 14:17) [2]

+ F1

---

← →
Yaro ©   (2003-12-13 17:14) [3]

Удалено модератором
Примечание: А ты думал :)

---

← →
Vollter ©   (2003-12-14 19:11) [4]

во тебе использование (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;

---

Страницы: 1 вся ветка

Текущий архив: 2004.02.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.025 c