![]() |
|
#1
|
|||
|
|||
![]() Пару месяцев назад спрашивал тут как хтмл ког залить в переменную стринг.
мне подсказали st:=idhttp1.get('www.такойтосайт.ru'); И вроде бы все прекрасно работало. Но, попробовал сегодня это проделать - компилятор ругается [Error] Unit1.pas(33): Undeclared identifier: 'idHTTP1' Подскажите пожалуйста как исправить? |
#2
|
||||
|
||||
![]() Систему или Делфи переставлял???
В начале был Бит, потом Байт и только потом появилось Слово... |
#3
|
||||
|
||||
![]() Цитата:
![]() TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |
#4
|
|||
|
|||
![]() Цитата:
|
#5
|
|||
|
|||
![]() Цитата:
|
#6
|
||||
|
||||
![]() Проверь:
модуль IdHTTP должен быть добавлен в Uses... компонент должен быт на форме... посмотри не переименовал ли ты его... должна быть объявлена переменная...в виде IdHTTP1 : TIdHTTP; В начале был Бит, потом Байт и только потом появилось Слово... |
#7
|
|||
|
|||
![]() Цитата:
Спасибо, только что то не до конца помогло - procedure TForm1.okClick(Sender: TObject); var IdHTTP1 : TIdHTTP; t:string; begin t:=idhttp1.get('http://lenta.ru/'); end; при запуске происходит краш - access violation at 0*00000000: read of address 0*00000000... ![]() |
#8
|
||||
|
||||
![]() Попробуй так...
Код:
procedure TForm1.okClick(Sender: TObject); var IdHTTP1 : TIdHTTP; t:string; begin try idhttp1.Create;//создаем объект t:=idhttp1.get('http://lenta.ru/'); finally idhttp1.free;//освобождаем объект end В начале был Бит, потом Байт и только потом появилось Слово... |
#9
|
|||
|
|||
![]() Спасибо, но не помогло, другой адрес в ошибке выдает
![]() |
#10
|
|||
|
|||
![]() Все запахало...
обьек надо было создать следующей строчкой IdHTTP1:=TIdHTTP.Create(nil); |
#11
|
|||
|
|||
![]() Ну так значит ты его на форму не кидал. IdHTTP находится на вкладке Indy Clients
|