Maç kolikten takım skorlarını çekiyorum, skorla beraber takımların adını da almak istediğimde birince takımın adını alıyorum fakat ikici takım adını alamadım acaba nereden hata yapıyorum?
iki takında adı aynı class içinde <div class="match-statistics-logo-text">
Kod: Tümünü seç
function GolParse(Source, EvSahibi, Deplasman, StrEv, StrDep: String): String;
begin
Delete(Source, 1, Pos(EvSahibi, Source) + Length(EvSahibi) - 1);
Result := Copy(Source, 1, Pos(Deplasman, Source) - 1);
Delete(Source, 1, Pos(StrEv, Source) + Length(StrEv) - 1);
Form1.caption := Copy(Source, 1, Pos(StrDep, Source) - 1);
end;
Kod: Tümünü seç
procedure SkorKontrol.Execute;
var
I: Integer;
Http: TIdHTTP;
Mackolik: String;
URL, Kimler, Goller, EvGol, DepGol: String;
begin
With Form1 do
try
Http := TIdHTTP.Create(Nil);
Mackolik := 'http://www.mackolik.com/Mac/';
try
URL := Http.Get(Mackolik + MacIdNo.Text + '/');
Goller := Trim(GolParse(URL,
'<div class="match-score" id="dvScoreText">', '</div>',
'<div class="match-statistics-logo-text">', '</div>'));
EvGol := Trim(Copy(Goller, 1, 1));
DepGol := Trim(Copy(Goller, 5, 1));
EvDepLB.caption := EvGol + ' - ' + DepGol;
MesajLB.caption := 'Skor alındı...';
finally
Http.Free;
end;
except
MesajLB.caption := 'Skor alınamadı işlem tekrar denenecek...';
end;
end;