IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
Function aradansec(text, ilk, son:String ): WideString;

begin

  Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);

  Result := Copy(Text, 1, Pos(Son, Text)-1);

end;

 

procedure TForm2.WebBrowser1********Complete(ASender: TObject;

 const pDisp: IDispatch; var URL: OleVariant);

var

 PUAN, ACIKLAMA, FLMAD, FLMYL, FLMYLB,RSM, WM : WideString;

begin

WM := WebBrowser1.OleObject.********.body.innerHTML;

FLMAD := aradansec(WM, '<H1 class=header itemprop='name'>', '<SPAN>(<A');

PUAN := aradansec(WM, '<DIV class=star-box-giga-star>', '</DIV>');

FLMYL := aradansec(WM, '(<A href='/year/', '/'>');

ACIKLAMA := aradansec(WM, '<P itemprop='description'>', '</P>');

//RSM:= aradansec(WM, '<IMG title=''+trim(FLMAD)+' Poster' style='max-width: 

214px; max-height: 317px' height=317 alt=''+trim(FLMAD)+' Poster' 

src='http://<a href="http://ia.media-imdb...es/M/</a>', '' itemprop='image'></A>');

cxtextedit3.Text:=trim(FLMAD);

cxtextedit5.Text:=trim(PUAN);

cxtextedit4.Text:=trim(FLMYL);

cxtextedit6.Text:=trim(ACIKLAMA);

end;