Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.44 MB
Время: 0.042 c
6-1144846173
Jolik
2006-04-12 16:49
2006.08.27
Автоматическое обновление программы через интернет...


15-1154071925
umbra
2006-07-28 11:32
2006.08.27
Литература/ссылки по проектированию баз данных


2-1154808578
alexsashka
2006-08-06 00:09
2006.08.27
смена строк в ListBox


2-1154828672
grisme
2006-08-06 05:44
2006.08.27
FloatToStr


15-1154242700
Asrin
2006-07-30 10:58
2006.08.27
Помогите!!!!!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский