VPF::отправить /считать файл с сервера

mvdr

Дата 30.3.2006, 06:57 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: нет
Всего: 42

а если сохранить страницу и потом открыть ее через Мемо?

Мне надо найти изменения в странице, т.е. были ли они или нет.

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Snowy

Дата 30.3.2006, 09:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 53
Всего: 484

Ну так поиск...
Вот первый попавшийся пример, чуть доработать:

Код

uses IdHttp;    
var    
  http: TIdHttp;    
begin    
  http:=TIdHTTP.Create(nil);    
  try    
    Memo1.Lines.Text := http.Get('http://forum.vingrad.ru/');
  except
    ShowMessage('Неа');
  end;
  http.Free;
end;

mvdr

Дата 30.3.2006, 15:30 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: нет
Всего: 42

Snowy, долго смотрел... толком не понял: как с авторизацией делать?
логин и пароль...

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Snowy

Дата 30.3.2006, 15:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 53
Всего: 484

Авторизация у скрипта или у http сервера?
Если у сервера, то Request.UserName и Request.Password
Если у скрипта, то зависит от того, в каком виде скрипт их ждет.

mvdr

Дата 30.3.2006, 15:48 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: нет
Всего: 42

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  http: TIdHttp;
  s: TMemoryStream;
begin
  http:=TIdHTTP.Create(nil);
  s:=TMemoryStream.Create;
  try
    http.Get('http://arrakis.coltel.ru:8080/h/index.php?l=0&t=0',s);
    s.Position:=0;     s.SaveToFile('C:\Documents and Settings\vova\Desktop\index.html');
    Memo1.Lines.LoadFromFile('C:\Documents and Settings\vova\Desktop\index.html');
  except
    ShowMessage('sorry');
  end;
  http.Free; s.Free;
end;

вот код.
Авторизация - надо ввести логин и пароль на вход туда

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Snowy

Дата 30.3.2006, 16:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 53
Всего: 484

Ну вот навскидку пример: http://forum.vingrad.ru/index.php?showtopi...st&p=627165
Тебе аналогично нужно забить поля 'user' и 'pass'.

mvdr

Дата 30.3.2006, 17:08 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: нет
Всего: 42

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  str:TStringList;
  ms: TMemoryStream;
begin
  str:=TStringList.Create;
  ms := TMemoryStream.Create;
  str.Add('referer=');
  str.Add('UserName=mvdr');
  str.Add('PassWord=MyPassw');
  str.Add('tst=');
  str.Add('CookieDate=1');
  try
    IdHTTP1.Post('http://forum.vingrad.ru/index.php?showtopic=76156&st=75&unread=&#entry688400', str, ms);
    ms.Position := 0;
    Memo1.Lines.LoadFromStream(ms);
  finally
    ms.Free; str.Free;
  end;

end;

вот делаю так, и он пишет что Socket Error #10060 connection timed out

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Snowy

Дата 30.3.2006, 17:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 53
Всего: 484

А зачем ты на винград цепляешься?
Чтобы прицепиться - дочитай ту тему до конца.
Там написано, что еще нужно выставить, чтобы это работало.

mvdr

Дата 30.3.2006, 17:17 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: нет
Всего: 42

даже если не на винград, а куда надо, то не цепляется, точнее выводит код страницы где написано ввести логин и пароль, Хотя их я вожу

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Snowy

Дата 30.3.2006, 17:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 53
Всего: 484

Отлично все работает.
Только что проверил с www.km.ru - проходит на ура.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »