Tüm Platformlar için Hızlı Uygulama Geliştirme Kitabı... Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Siteden veri alma
#1
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>
Cevapla
#2
Merhaba,
indy deki IdHTTP nesnesi işinize yarayabilir
Cevapla
#3
(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));
WWW
Cevapla
#4
(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;
Cevapla
#5
(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.
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Comporttan veri bittiğini nasıl anlarız ? seci20 11 179 21-10-2018, Saat: 17:54
Son Yorum: arsl01
  Power Onguard ile makine kodu alma cinarbil 4 105 12-10-2018, Saat: 16:22
Son Yorum: cinarbil
  Uzak masaüstü bağlanan makinayı alma hbulus 3 181 02-10-2018, Saat: 21:52
Son Yorum: hbulus
  Unidac veri ekleme arsl01 3 127 29-09-2018, Saat: 17:06
Son Yorum: arsl01
  Delphi & FTP txt veri işleme Mr.Developer 21 646 28-09-2018, Saat: 08:21
Son Yorum: Fesih ARSLAN



Konuyu Okuyanlar: 1 Ziyaretçi