Форум: "Начинающим";
Текущий архив: 2006.08.27;
Скачать: [xml.tar.bz2];

Вниз

Whois   Найти похожие ветки 

← →
Exit   (2006-08-03 22:38) [0]

Учусь работать в сети и у меня не выходит следующий код
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"


---

← →
S@shka ©   (2006-08-03 22:46) [1]

IdWhois.Whois(Edit1.Text)

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

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

---

← →
Exit   (2006-08-03 22:49) [2]

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

---

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

Форум: "Начинающим";
Текущий архив: 2006.08.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.036 c