Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Почему не работает Whois, Вылетает ошибка... 
:(
    Опции темы
pomogite
Дата 3.5.2006, 13:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет
Вот нужно написать утилиту Whois а у меня выскакивает ошибка, где я что то неправильно сделала?

Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Memo1: 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
 Memo1.Clear;
 FindResult:=IdWhois.Whois(Edit1.Text);//Вот тут выскакивает ошибка!!!
 while Lenght(FindResult)> 0 do
    begin
      ipos:=Pos(#10,FindResult);
      Line:=Copy(FindResult,1,ipos - 1);
      Memo1.Lines.Add(Line);
      Delete(FindResult,1,Lenght(Line)+1);

end;

end.
 
PM MAIL   Вверх
_hunter
Дата 3.5.2006, 13:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
что за ошибка "выскакивает"?
и почему на форме у тебя IdWhois1 висит а работаеш ты с IdWhois? 


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
pomogite
Дата 3.5.2006, 13:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет
_hunter, 
Вот в этом то и была моя ошибка  smile 
Спасибо smile  
Ещё вопрос, у меня мемо слишком маленькое а текста много так что как туда попадает информация то показывается только самый низ а как сделать чтоб показывался сначала верх, и как сделать кнопки прокрутки. если можно лучше код  

Это сообщение отредактировал(а) pomogite - 3.5.2006, 14:09
PM MAIL   Вверх
_hunter
Дата 3.5.2006, 14:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
1 -- CaretPos в 0 поставь (или SelStart)
2 -- поставь ScrollBars в ssBoth 


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
pomogite
Дата 3.5.2006, 14:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет
а как 1 сделать пишу memo1.CaretPos:=1; ошибку выдаёт 
PM MAIL   Вверх
Alexeis
Дата 3.5.2006, 14:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
memo1.CaretPos := Point(0, 0); 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
pomogite
Дата 3.5.2006, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет
всё равно на самый низ скидывает 
PM MAIL   Вверх
Snowy
Дата 3.5.2006, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Код
var i: Integer;
begin
  repeat
    i := Memo1.Perform(EM_SCROLL, SB_PAGEUP, 0);
  until (Word(i) = 0) or (Word(i shr 16) <= 0);
  
PM MAIL   Вверх
Alexeis
Дата 3.5.2006, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
А так?
SetScrollPos(Memo1.Handle ,SB_VERT,0, true); 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Snowy
Дата 3.5.2006, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Цитата(alexeis1 @  3.5.2006,  15:14 Найти цитируемый пост)
SetScrollPos(Memo1.Handle ,SB_VERT,0, true); 
Гы. Прикольно. Скрол встал в верхнюю позицию, а текст остался низ...

EM_SCROLL работает.

Добавлено @ 15:20 
ЗЫ. Модератор: Пожалуйста, один топик - один вопрос. 
PM MAIL   Вверх
Alexeis
Дата 3.5.2006, 15:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Snowy, поздно увидел 
Вот правельный вариант
Memo1.Perform(WM_VSCROLL, SB_TOP, 0); 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
pomogite
Дата 3.5.2006, 15:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет
Ага всё работает спасибо! 
 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0656 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.