[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

еше вопрос.... в чем проблема?

procedure TForm1.Button3Click(Sender: TObject);
begin
HttpGetText('http://l2top.ru', Memo1.Lines);
end;

выводит пустую страницу... остальные сайты нормально отображает.. возможно нужно представляться как браузер? но как ето сделать

 

'

Грузи не Memo1.Lines а в Memo1.Text

 

[Error] Unit1.pas(57): Incompatible types: 'TStrings' and 'TCaption'

да и причем тут ето? гугл или яндекс и другие сайты норм открывает исходной код. а тут не хочет

 

А так попробуй.

Code:

uses
  .., IdHttp;

var
http:TIdHTTP;
begin
http:=TIdHTTP.Create(nil);
http.HandleRedirects:=True;
Memo1.Text:=http.Get('http://l2top.ru');
http.Free;
end;

 

все равно пустая

 

CheatXX, а в ответе от сервера что приходит(IdHTTP1.Response.ResponseText?

Если у тебя так не только в инди, то тут дело наверное не в дельфи.....

 

HTTP/1.1 302 Found

 

Гы гы ты редиректы не врубил ))

IdHTTP->HandleRedirects=true;

 

включены они

 

Покажи весь код а

 

Есть у когонибудь исходник простого авторегера почты или icq?

 

Есть то есть , но выкладывать его вряд ли кто будет

 

Блин жаль, мне хотябы пример ;(

 

Учитесь работать с Indy или Winsock 'ом , и все сами поймете

 

ТАк тут небольшая проблема,
вообщем код кнопки:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var FS:TfileStream;
begin
S:=idHTTP1.Get('http://id.rambler.ru/script/newuser.cgi');
uniq_id:= Copy(S, Pos('uniq_id', S) +16, 32);
FS:=TfileStream.Create('captcha.jpg',FMCreate);
idHTTP1.Get('http://id.captcha.rambler.ru/'+uniq_id+'.jpg', FS);
FS.Free;
Image1.Picture.LoadFromFile('captcha.jpg');
end;

Нажимаю на кнопку такая шляпа выходит.

Нажимаю ок выводит следующие,

Убираю строку которая выделяется на скрине все норм, в чем дело?

 

ya8lon, jpeg в uses подключил?

 

ya8lon, запускай прогу не в отладчике!!!

по этому и не работает

 

";" кто будет ставить после "Create"?

Code:

var
  Data: TStringList;
  ..........
begin
  Data:= TStringList.Create;
  try
    Data.Add('skin=id');
    .........
  finally
    Data.Free;
  end;
.....

 

Вопрос про совместимость.
Открыл седьмым делфи сорц сделанный в 2010.

на этом выдает ошибку. Application.MainFormOnTaskbar := True;
Может дело в версиях?

 

Эту строчку можешь безбоязненно удалять.
Но это не послядняя твоя проблема