Yorumları: 4.224
Konuları: 379
Kayıt Tarihi: 07-07-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 16.975 Üstad
(30-05-2018, Saat: 22:04)Paranoyaq Adlı Kullanıcıdan Alıntı: function DoLogin(const username,email,url,comment: string): string;
var
IdHTTP: TIdHTTP;
Request: TStringList;
begin
try
Request := TStringList.Create;
try
Request.Add('action=do_login');
Request.Add('url=https://www.oyunkabini.com/battlefield-v-ilk-fragmanini-yayinladi-ve-daha-fazlasi-dlc-premium-passes/');
Request.Add('submit=727');
Request.Add('author'+username);
Request.Add('email='+email);
Request.Add('url='+url);
Request.Add('comment='+comment);
Request.Add('submit');
IdHTTP := TIdHTTP.Create;
try
IdHTTP.AllowCookies := True;
IdHTTP.HandleRedirects := True;
IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP.Post('https://www.oyunkabini.com/wp-comments-post.php', Request);
Result := IdHTTP.Get('http://www.oyunkabini.com');
if StrUtils.ContainsStr(Result, 'submit') then //Login başarısız demektir
Result := '';
finally
IdHTTP.Free;
end;
finally
Request.Free;
end;
except
Result := '';
end;
end;
Kodlarında yanlışlarım nelerdir ?
Merhaba,
Request.Add('author'+username); satırı, Request.Add('author='+username); şeklinde mi olmalı? Her parametre adından sonra = işareti var. Yalnızca bu satırda yok.
Önemli: except ifadesi olduğu sürece hatayı yakalamanız çok zor.
Yorumları: 1.313
Konuları: 111
Kayıt Tarihi: 01-07-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 6.983 Üstad
(30-05-2018, Saat: 22:04)Paranoyaq Adlı Kullanıcıdan Alıntı: function DoLogin(const username,email,url,comment: string): string;
var
IdHTTP: TIdHTTP;
Request: TStringList;
begin
try
Request := TStringList.Create;
try
Request.Add('action=do_login');
Request.Add('url=https://www.oyunkabini.com/battlefield-v-ilk-fragmanini-yayinladi-ve-daha-fazlasi-dlc-premium-passes/');
Request.Add('submit=727');
Request.Add('author'+username);
Request.Add('email='+email);
Request.Add('url='+url);
Request.Add('comment='+comment);
Request.Add('submit');
IdHTTP := TIdHTTP.Create;
try
IdHTTP.AllowCookies := True;
IdHTTP.HandleRedirects := True;
IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP.Post('https://www.oyunkabini.com/wp-comments-post.php', Request);
Result := IdHTTP.Get('http://www.oyunkabini.com');
if StrUtils.ContainsStr(Result, 'submit') then //Login başarısız demektir
Result := '';
finally
IdHTTP.Free;
end;
finally
Request.Free;
end;
except
Result := '';
end;
end;
Kodlarında yanlışlarım nelerdir ?
Except'i kaldırıp hata resimlerini atarsan daha hızlı bulabiliriz
Yorumları: 219
Konuları: 46
Kayıt Tarihi: 16-03-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 273 Acemi
function DoLogin(const username,email,url,comment: string): string;
var
IdHTTP: TIdHTTP;
Request: TStringList;
begin
try
Request := TStringList.Create;
try
Request.Add('action=do_login');
Request.Add('url=https://www.oyunkabini.com/battlefield-v-ilk-fragmanini-yayinladi-ve-daha-fazlasi-dlc-premium-passes/');
Request.Add('submit=727');
Request.Add('author='+username);
Request.Add('email='+email);
Request.Add('url='+url);
Request.Add('comment='+comment);
Request.Add('submit');
IdHTTP := TIdHTTP.Create;
try
IdHTTP.AllowCookies := True;
IdHTTP.HandleRedirects := True;
IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP.Post('https://www.oyunkabini.com/wp-comments-post.php', Request);
Result := IdHTTP.Get('http://www.oyunkabini.com');
if StrUtils.ContainsStr(Result, 'submit') then //Login başarısız demektir
Result := '';
finally
IdHTTP.Free;
end;
finally
Request.Free;
end;
finally
Result := '';
end;
end;
except yerine finally
buton kodum
memo2.Lines.Add(DoLogin(edit1.Text,edit2.Text,edit3.Text,memo1.Text));
Hata Could Not Load SSL library
Yorumları: 1.313
Konuları: 111
Kayıt Tarihi: 01-07-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 6.983 Üstad
(31-05-2018, Saat: 00:00)Paranoyaq Adlı Kullanıcıdan Alıntı: function DoLogin(const username,email,url,comment: string): string;
var
IdHTTP: TIdHTTP;
Request: TStringList;
begin
try
Request := TStringList.Create;
try
Request.Add('action=do_login');
Request.Add('url=https://www.oyunkabini.com/battlefield-v-ilk-fragmanini-yayinladi-ve-daha-fazlasi-dlc-premium-passes/');
Request.Add('submit=727');
Request.Add('author='+username);
Request.Add('email='+email);
Request.Add('url='+url);
Request.Add('comment='+comment);
Request.Add('submit');
IdHTTP := TIdHTTP.Create;
try
IdHTTP.AllowCookies := True;
IdHTTP.HandleRedirects := True;
IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP.Post('https://www.oyunkabini.com/wp-comments-post.php', Request);
Result := IdHTTP.Get('http://www.oyunkabini.com');
if StrUtils.ContainsStr(Result, 'submit') then //Login başarısız demektir
Result := '';
finally
IdHTTP.Free;
end;
finally
Request.Free;
end;
finally
Result := '';
end;
end;
except yerine finally
buton kodum
memo2.Lines.Add(DoLogin(edit1.Text,edit2.Text,edit3.Text,memo1.Text));
Hata Could Not Load SSL library
Direkt hatayı yazsan koda gerek kalmayacak... Sadece SSLLib DLL paketini yükle uygulamanın yanına yükle. Forumda mevcut konu bizzat ben açmıştım zaten
Yorumları: 219
Konuları: 46
Kayıt Tarihi: 16-03-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 273 Acemi
(31-05-2018, Saat: 00:01)hyperxman Adlı Kullanıcıdan Alıntı: (31-05-2018, Saat: 00:00)Paranoyaq Adlı Kullanıcıdan Alıntı: function DoLogin(const username,email,url,comment: string): string;
var
IdHTTP: TIdHTTP;
Request: TStringList;
begin
try
Request := TStringList.Create;
try
Request.Add('action=do_login');
Request.Add('url=https://www.oyunkabini.com/battlefield-v-ilk-fragmanini-yayinladi-ve-daha-fazlasi-dlc-premium-passes/');
Request.Add('submit=727');
Request.Add('author='+username);
Request.Add('email='+email);
Request.Add('url='+url);
Request.Add('comment='+comment);
Request.Add('submit');
IdHTTP := TIdHTTP.Create;
try
IdHTTP.AllowCookies := True;
IdHTTP.HandleRedirects := True;
IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP.Post('https://www.oyunkabini.com/wp-comments-post.php', Request);
Result := IdHTTP.Get('http://www.oyunkabini.com');
if StrUtils.ContainsStr(Result, 'submit') then //Login başarısız demektir
Result := '';
finally
IdHTTP.Free;
end;
finally
Request.Free;
end;
finally
Result := '';
end;
end;
except yerine finally
buton kodum
memo2.Lines.Add(DoLogin(edit1.Text,edit2.Text,edit3.Text,memo1.Text));
Hata Could Not Load SSL library
Direkt hatayı yazsan koda gerek kalmayacak... Sadece SSLLib DLL paketini yükle uygulamanın yanına yükle. Forumda mevcut konu bizzat ben açmıştım zaten
Bende denemiştim senin konundaki gibi SSL sürümünden kaynaklanmış şuan hata vermiyor fakat yorumda yok
Yorumları: 1.313
Konuları: 111
Kayıt Tarihi: 01-07-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 6.983 Üstad
"fakat yorumda yok"
Bundan sonrası kodlarını iyice kontrol et
Yorumları: 342
Konuları: 15
Kayıt Tarihi: 16-08-2016
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 2.707 Uzman
31-05-2018, Saat: 09:14
(Son Düzenleme: 31-05-2018, Saat: 09:15, Düzenleyen: ozcanm.)
Merhaba,
Şuan tek sıkıntıyı gönderim aşamasında yaşadığınızı varsayarak aşağıdaki adımları inceleyerek bir karşılaştırma yapın.
Öncelikle gönderim esnasında sizin yorum yazacağınız sayfa linkine ihtiyacınız yok. Bu sayfa bilgileri içerisinde yer alan comment_parant ve comment_parant _ID bilgilerine ihtiyacınız var sürekli aynı sayfada işlem yaptığınız için 727 değerini sabit bir değer olarak düşünmeyin. 727 değeri "battlefield" tanıtım sayfasının ID değeridir. Eğer "pubg-versiyon-1-0-guncelleme-ayrintilari" sayfasına post yapacaksanız bunun comment_parant _ID değeri 345 tir. parent değeri yine Sıfırdır.
Aşağıdaki son resimde gönderim yapacağımız için Method değerini POST olarak seçiyoruz. Daha sonra "Send Request" ile gönderimi yapıyoruz. 2 numaralı alan bize sonucu bildiriyor olacak. 200:OK değeri işlemin başarılı olduğunu bildiriyor. Resimlerde olduğu gibi bilgileri doldurduktan sonra 3 numara ile işaretlediğim "Copy COmponents" butonu ile verileri hafızaya alın ve projenizde yada boş bir projede "Ctrl+V" ile bilgileri aktarın. "Object Inspector" penceresinden ilgili Componentlerin Properties değerlerini inceleyin.
İyi Çalışmalar.
Yorumları: 1.571
Konuları: 88
Kayıt Tarihi: 09-08-2016
Rep Puanı: 13.829 Üstad
(31-05-2018, Saat: 00:00)Paranoyaq Adlı Kullanıcıdan Alıntı: function DoLogin(const username,email,url,comment: string): string;
var
IdHTTP: TIdHTTP;
Request: TStringList;
begin
try
Request := TStringList.Create;
try
Request.Add('action=do_login');
Request.Add('url=https://www.oyunkabini.com/battlefield-v-ilk-fragmanini-yayinladi-ve-daha-fazlasi-dlc-premium-passes/');
Request.Add('submit=727');
Request.Add('author='+username);
Request.Add('email='+email);
Request.Add('url='+url);
Request.Add('comment='+comment);
Request.Add('submit');
IdHTTP := TIdHTTP.Create;
try
IdHTTP.AllowCookies := True;
IdHTTP.HandleRedirects := True;
IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
IdHTTP.Post('https://www.oyunkabini.com/wp-comments-post.php', Request);
Result := IdHTTP.Get('http://www.oyunkabini.com');
if StrUtils.ContainsStr(Result, 'submit') then //Login başarısız demektir
Result := '';
finally
IdHTTP.Free;
end;
finally
Request.Free;
end;
finally
Result := '';
end;
end;
except yerine finally
buton kodum
memo2.Lines.Add(DoLogin(edit1.Text,edit2.Text,edit3.Text,memo1.Text));
Hata Could Not Load SSL library
Her hâlükârda (finally'de yazıldığı için) Result := '' olacaksa bu fonksiyonu ne amaçla kullanıyorsunuz?
Ayrıca
if StrUtils.ContainsStr(Result, 'submit') then //Login başarısız demektir
Login olduktan sonra ilgili web sitesi içinde submit kelimesinin geçip geçmediğini kontrol ediyorsunuz. Bu koddan emin misiniz?
Login olmazsanız sayfada submit kelimesi var ama login olursanız sayfada hiç submit kelimesi geçmiyor olmalı ki yaptığınız bu kontrol işe yarasın.
There's no place like 127.0.0.1
Yorumları: 219
Konuları: 46
Kayıt Tarihi: 16-03-2017
Aktif Kullandığınız Delphi Sürümü:
Rep Puanı: 273 Acemi
@ SimaWB
submit ve result olayını kaldırdım , submit olayını hiç ayrıntılı düşünmemiştim teşekkürler .
@Cyber
Anlatım için sağol Copy kısmında purchase hatası alıyorum copy yapamıyorum , rest debuggeri @"Fesih ARSLAN" ın http://www.delphican.com/rest-debugger-uygulamsi.html konusundan indirdim
|