Selam, webbrowser kullanmadan mackolik id'ye göre maç sonuçlarını almak istiyorum bunun için nasıl bir yol izlemeliyim?

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol


<div class="match-score" id="dvScoreText"> 1 - 2 </div>

Merhaba,
indy deki IdHTTP nesnesi işinize yarayabilir

(08-04-2017, Saat: 01:33)serhat Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlSelam, webbrowser kullanmadan mackolik id'ye göre maç sonuçlarını almak istiyorum bunun için nasıl bir yol izlemeliyim?

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol


<div class="match-score" id="dvScoreText"> 1 - 2 </div>

İyi akşamlar. Evet mümükün. Bir örnek fonksiyon hazırladım.

1) uses IdHTTP ekleyin.
2) Fonksiyonumuz

function MacSonucuAl(const id: Integer): string;
  function SubParse(Source, L, R: string): string;
 begin
   Delete(Source, 1, Pos(L, Source) + Length(L) - 1);
   Result := Copy(Source, 1, Pos(R, Source) - 1);
 end;
var
 HTTP: TIdHTTP;
 Temp: string;
begin
 HTTP := TIdHTTP.Create(nil);
 try
   Temp := HTTP.Get('http://www.mackolik.com/Mac/' + IntToStr(id) + '/');
   Result := Trim(SubParse(Temp, '<div class="match-score" id="dvScoreText">', '</div>'));
 finally
   HTTP.Free;
 end;
end;

3) Kullanımı

// MacSonucuAl(id numarası)

//Örnek
ShowMessage(MacSonucuAl(2540036));

(08-04-2017, Saat: 02:45)AliZairov Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

(08-04-2017, Saat: 01:33)serhat Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye OlSelam, webbrowser kullanmadan mackolik id'ye göre maç sonuçlarını almak istiyorum bunun için nasıl bir yol izlemeliyim?

Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol


<div class="match-score" id="dvScoreText"> 1 - 2 </div>

İyi akşamlar. Evet mümükün. Bir örnek fonksiyon hazırladım.

1) uses IdHTTP ekleyin.
2) Fonksiyonumuz

function MacSonucuAl(const id: Integer): string;
  function SubParse(Source, L, R: string): string;
 begin
   Delete(Source, 1, Pos(L, Source) + Length(L) - 1);
   Result := Copy(Source, 1, Pos(R, Source) - 1);
 end;
var
 HTTP: TIdHTTP;
 Temp: string;
begin
 HTTP := TIdHTTP.Create(nil);
 try
   Temp := HTTP.Get('http://www.mackolik.com/Mac/' + IntToStr(id) + '/');
   Result := Trim(SubParse(Temp, '<div class="match-score" id="dvScoreText">', '</div>'));
 finally
   HTTP.Free;
 end;
end;

3) Kullanımı

// MacSonucuAl(id numarası)

//Örnek
ShowMessage(MacSonucuAl(2540036));

Elinize sağlık; bir function altında oluşturmak istediğimde

[dcc32 Error] Main.pas(43): E2035 Not enough actual parameters
[dcc32 Error] Main.pas(51): E2010 Incompatible types: 'string' and 'Integer'
[dcc32 Fatal Error] Bahis.dpr(5): F2063 Could not compile used unit 'Main.pas'

hatası alıyorum bu neden olabilir?

function SubParse(const Id, Source, EvSahibi, Deplasman: String): String;
var
 Http: TIdHTTP;
 Temp, Skor: String;
begin
 Http := TIdHTTP.Create(Nil);
 try
   Temp := Http.Get('http://www.mackolik.com/Mac/' + Id + '/');
   Skor := Trim(SubParse(Temp, '<div class="match-score" id="dvScoreText">',  '</div>'));
 finally
   Http.Free;
 end;
end;

(08-04-2017, Saat: 15:27)serhat Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol

(08-04-2017, Saat: 02:45)AliZairov Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olİyi akşamlar. Evet mümükün. Bir örnek fonksiyon hazırladım.

1) uses IdHTTP ekleyin.
2) Fonksiyonumuz

function MacSonucuAl(const id: Integer): string;
  function SubParse(Source, L, R: string): string;
 begin
   Delete(Source, 1, Pos(L, Source) + Length(L) - 1);
   Result := Copy(Source, 1, Pos(R, Source) - 1);
 end;
var
 HTTP: TIdHTTP;
 Temp: string;
begin
 HTTP := TIdHTTP.Create(nil);
 try
   Temp := HTTP.Get('http://www.mackolik.com/Mac/' + IntToStr(id) + '/');
   Result := Trim(SubParse(Temp, '<div class="match-score" id="dvScoreText">', '</div>'));
 finally
   HTTP.Free;
 end;
end;

3) Kullanımı

// MacSonucuAl(id numarası)

//Örnek
ShowMessage(MacSonucuAl(2540036));

Elinize sağlık; bir function altında oluşturmak istediğimde

[dcc32 Error] Main.pas(43): E2035 Not enough actual parameters
[dcc32 Error] Main.pas(51): E2010 Incompatible types: 'string' and 'Integer'
[dcc32 Fatal Error] Bahis.dpr(5): F2063 Could not compile used unit 'Main.pas'

hatası alıyorum bu neden olabilir?

function SubParse(const Id, Source, EvSahibi, Deplasman: String): String;
var
 Http: TIdHTTP;
 Temp, Skor: String;
begin
 Http := TIdHTTP.Create(Nil);
 try
   Temp := Http.Get('http://www.mackolik.com/Mac/' + Id + '/');
   Skor := Trim(SubParse(Temp, '<div class="match-score" id="dvScoreText">',  '</div>'));
 finally
   Http.Free;
 end;
end;

Merhaba. Fonksiyon ismi MacSonucuAl. SubParse fonksiyonu ise html parse icin kullanıyorum. Ve oda MacSonucuAl gömülü bir fonksiyon. Dikkat ederseniz izin fonksiyon ismi SubParse. Siz ismini değişmeniz gerek ilk önce. Sonra fonksiyonunuza SubParse fonksiyonunu gömmeniz gerekiyor.