28.08.2010, 12:25
|
Прохожий
|
|
Регистрация: 10.01.2010
Сообщения: 5
Репутация: 10
|
|
Цитата:
Сообщение от aleksnine
Вот как-то так :
Код:
uses
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
ExtCtrls, StdCtrls,jpeg;
Код:
function katalog(link:string;image:timage):string;
var
idhttp:tidhttp;
i:integer;
s:string;
st:tstringlist;
stream:tmemorystream;
const
tag_k='<div id="footerBottom"></div>';
site='http://ua.oriflame.com';
begin
result:='не нашли';
idhttp:=tidhttp.Create(form1);
st:=tstringlist.Create;
st.Text:= idhttp.Get(link);
for i := 0 to st.Count-1 do begin
if st.Strings[i]=tag_k then begin
s:=st.Strings[i+12] ;
s:=copy(s,ansipos('>',s)+1,length(s));
s:=copy(s,0,ansipos('<',s)-1);
result:=s;
s:=st.Strings[i+13] ;
s:=copy(s,ansipos('>',s)+1,length(s));
s:=copy(s,0,ansipos('<',s)-1);
result:=result + ' ' + s; //Инфа по каталогу получена .
if st.Strings[i]=tag_k then begin
s:=st.Strings[i+9] ;
s:=copy(s,ansipos('"',s)+1,length(s));
s:=copy(s,0,ansipos('"',s)-1);
s:=site+s;
result:=result +' ' +s; //Получили ссылку на картинку каталога
stream:=tmemorystream.Create;
idhttp.Get(s,stream);
with stream do begin
position:=0;
savetofile('1.jpg');
end;
image.Picture.LoadFromFile('1.jpg');
end;
end;
end;
idhttp.Free;
st.Free; stream.Free;
end;
Использование
Код:
showmessage(katalog('http://ua.oriflame.com/recruits/',image1));
|
Спасибо огромное, помогло. Код работает отлично. Я его немного под себя поправил чуть-чуть... Теперь хоть понял как с idHTTP работать.....
|