[Kaf_Dağı]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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;