| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Whois [D2005]

Exit ©   (2006-08-03 22:38:00) 

Учусь работать в сети и у меня не выходит следующий код
unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
 IdWhois;

type
 TForm1 = class(TForm)
   Edit1: TEdit;
   Button1: TButton;
   ResultMemo: TMemo;
   IdWhois1: TIdWhois;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
Line,FindResult: string;
iPos: Integer;
begin
ResultMemo.Clear; //Очистка содержимого компонента TMemo
FindResult:=IdWhois.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;

end.
Выдаёт ошибку

[Error] Unit1.pas(36): E2003 Undeclared identifier: 'Whois'
[Fatal Error] Whols.dpr(5): F2063 Could not compile used unit 'Unit1.pas'


---

Exit   (2006-08-03 22:49:00) [1]

S@shka Спасибо, как то не заметил!

---

S@shka   (2006-08-03 22:46:00) [2]

IdWhois.Whois(Edit1.Text)

А так нельзя писать. С чего ты вдруг полез руками в IdWhois.pas ???

FindResult:=IdWhois1.Whois(Edit1.Text)  - видимо вот так

---

Наверх