[Oleg]

Помогите сделать прогу(исходник), которая будет обращаться к заданным интернет-страницам и выводить данные на прогу. Нужно, чтобы прога показывала рисунки(защитный код) и так сказать собирала копейки со страниц, которые раздают их. Лично для меня и целях интереса работы с интернет-страницами, речь не в коем случае не идет о какой-либо перепродажи/лохотрона. Просто сам хочу немного поучиться и других поддержать, ведь в инете стока лохотрона, что страшно открыть сайт. Ну очень прошу помогите, а то я ещё только начинающий и в этом ни ма... Плизз... Буду очень благодарен. Заранее спасибо !
Пример сайта: http://wmauction.com/ (внизу слева)

[aleksnine]

Написал тебе заготовочку -)

Код:

Procedure FoundKey;
const
Sait_url='http://wmauction.com/';
var
Http:Tidhttp;
f:tstringlist;
s,STAG,key,rnd:string;
i,cif_max:integer;
Stream:Tmemorystream;
begin
try
key:=' ошибка ';
http := TIdHTTP.Create(nil);
STAG:='<td align='+''''+'right'+''''+'><img src='+''''+'im_code/image.php?rnd=';
cif_max:=length(STAG);
f:=tstringlist.Create;
f.Text:=http.Get(Sait_url);
for i:=0 to f.Count-1 do begin     //ищем STAG
s:=f.Strings[i];
s:=copy(s,0,cif_max);
if s=STAG then begin            //если строчка совпадает то вытаскиваем из нее цифорки
s:=f.Strings[i];
rnd:=copy(copy(s,51,56),0,6);    // какой то rnd
key:=copy(copy(s,62,60),0,6); // цифорки на картиночке
if key[6]=''''then
Delete(key,6,6);
break;     // прекращаем поиск
end;
end;
stream:=tmemorystream.Create;
try
http.Get('http://wmauction.com/im_code/image.php?rnd='+rnd+'&id='+key, stream);
stream.Position := 0;
stream.SaveToFile(Extractfilepath(paramstr(0))+key+'.jpg');
finally
stream.Free;Http.free;
showmessage('Успешно завершено'#13'Код - '+key+' '#13'Файл сохранен как  '+Extractfilepath(paramstr(0))+key+'.jpg' );
end;
except
showmessage('Произошла ошибочка');
end;
end;

Код простоват и туп , но задачу выполняет .
Получаем id и сохраняем картинку с сайта в папку с программой .

[Oleg]

Спасибо за пример, но:
У меня почему-то пишет, что в "Http:Tidhttp" ошибка. Может из-за того, что у меня Delphi6 ? Помогите разобраться..
Ни как не могу опробовать и поразбираться.

[aleksnine]

добавь в uses

Код:

idhttp

[Oleg]

Спасибо конечно за ответы, но опять проблема:
Добавил, но тогда пишет: "File not found: idhttp.dcu".
Похожи из-за Delphi 6, сейчас качаю Delphi 7 (94,1 Mb; .7z).

[Oleg]

!!!!!!! Но он под паролем !!!
В полной отчаянности, не знаю что делать, сначала качал через Opera, произошла какая-то ошибка на ~70%. Все закачал по новой на Download Master, но нужен пароль(Файл D7.7z). Потрачено ~150 Mb трафика, а тут ещё это... Может что подскажете, что делать с D7.7z. А может дадите ссылку на idhttp.dcu.

[Oleg]

Скачал с других мест из 3 частей Delphi 7, всё работает, слава Богу !
Мог бы ты немного изменить заготовочку, чтобы это было практически как на сайте при нажатии(ввод кошелька, цифр, а перед тобой рисунок) я не знаю как ? Но если занят, то и на этом спасибо БОЛЬШОЕ , что ответил ! Благодарю ещё раз.