Ebay Login

[Natcree]

Hallo ich habe vor mit meinem prog mich in meinem ebay account einzuloggen. Dort information zu meinen Käufen und Verkäufen auslesen. Mittels der Twebbrowser Kompo klappt es hab es dauert mir zu lange. Nun Will ich mit den Indy komponenten es versuchen scheitere jedoch immer am Login.

Indyversion 9.1 ist installiert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
params:TStringList;
i:integer;
htmlcode:string;
begin
  params:=tstringlist.create;
  Params.Add('MfcISAPICommand=SignInWelcome');
  Params.text:=Params.text + 'a1%3Dna~a2%3Dna~a3%3Dna~a4%3DMozilla~a5%3D' + 'Netscape~a6%3D5.0%20(Windows%3B%20de)~a7%3D20090715~a8%3Dna~a9%3Dtrue~a10%3DWindows%20NT%206.0~a11%3Dtrue~a12%3DWin32~a13%3Dn' + 'a~a14%3DMozilla%2F5.0%20(Windows%3B%20U%3B%20Windows%20NT%206.0%3B%20de%3B%20rv%3A1.9.1.1)%20Gecko%2F20090715%20' + 'Firefox%2F3.5.1~a15%3Dtrue~a16%3Dde~a17%3Dna~a18%3Dsignin.ebay.de~a19%3Dna~a20%3Dna~a21%3Dna~a22%3Dna~a23%3D1680~a24%3D10' + '50~a25%3D32~a26%3D1020~a27%3Dna~a28%3DTue%20Jul%2021%202009%2017%3A04%3A13%20GMT%2B0200~a29%3D2~a30%3Ddef%7Cqt6%7Cqt5%7Cqt4%7Cqt3%7Cqt2%7Cqt1%7Cpdf' + '%7Cmso%7Cswf%7C~a31%3Dyes~a32%3Dna~a33%3Dna~a34%3Dno~a35%3Dno~a36%3Dyes~a37%3Dno~a38%3Donline~a39%3Dno~a40%3DWindows%20NT%206.0~a41%3Dno~a42%3Dno~a43%3D';  //musste den string in mehrere substrings aufteilen, da er du lang war
  Params.Add('inputversion=2');
  Params.Add('lse=true');
  Params.Add('lsv=10.0.22');
  Params.Add('mid=AQAAASJINcJdAAUxMjI2NGMwNGJiNy5hMDkwYjczLjc4MjA3LmZmZmZhNjNhADiP0v8hOAsKF2E%2BWA38MVbzj8k*');
  Params.Add('kgver=1');
  Params.Add('kgupg=1');
  Params.Add('kgstate=r');
  Params.Add('omid=');
  Params.Add('hmid=AQAAASJINcJdAAU2NGMwNTU4ZjEyMjBhMDZjMjE2MDVmYzBmZmU1Y2I0YiwwLC0x82UUzbPa7XWixDDVYkW%2Fdqn1cns*');
  Params.Add('siteid=77');
  Params.Add('co_partnerId=2');
  Params.Add('UsingSSL=1');
  Params.Add('ru=');
  Params.Add('pp=');
  Params.Add('pa1=');
  Params.Add('pa2=');
  Params.Add('pa3=');
  Params.Add('i1=-1');
  Params.Add('pageType=-1');
  Params.Add('rtmData=A01=AEABtISBEAAAAAAAQCIEqv9sAMSIs7yMvkojwiPBJ+Qk5LBL/CRiBo4HQSSAKlGksJg4JAK;M01=AIAAHKAIAAMoQBBgAQcABGEYQAkAG;TC01=QEguYX3pIBAAAQQLiUABAAAAAAAkACECVAA/2zSoAjECAC2dZAAMzLJg0RYJUfCSA5DRGAyXCWAEnfhIAJGgCY/ASAlEgC4SDSAtJgIAJnAoAG;PS=T.0');
  Params.Add('userid=' + Memo1.Lines[i]);
  Params.Add('pass=' + Memo2.Lines[i]);
  HTMLCode:=IdHTTP1.Get('https://signin.ebay.de/ws/eBayISAPI.dll?co_partnerid=2&siteid=77&UsingSSL=1');

  IdHTTP1.Request.Referer := 'https://signin.ebay.de/ws/eBayISAPI.dll?SignIn';
  IdHTTP1.Request.Host := 'signin.ebay.de';
  IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';

  memo3.text:=IdHTTP1.Post('https://signin.ebay.de/ws/eBayISAPI.dll?co_partnerid=2&siteid=77&UsingSSL=1', Params);

  IdHTTP1.Request.Referer := '';
  IdHTTP1.Request.Host := '';
  IdHTTP1.Request.ContentType := '';
end;

Es Klappt einfach nicht. Woran kann es liegen?

[vagtler]

Mal abgesehen davon, dass "es klappt einfach nicht" keine besonders aussagekräftige Fehlerbeschreibung darstellt, ist der Versuch, einen Webbrowser zu simulieren meist nicht besonders nachhaltig.

Ebay bietet eine API - nutze diese.

https://go.developer.ebay.com/what-ebay-api

[Daniel]

Nutze die API, wie schon gesagt wurde.
Ein mit OAuth gesichertes Verfahren, kannst Du mit einem Webbrowser-Nachbau nicht abbilden, weil da mehrere Requests im Spiel sind.

[sx2008]

Anmeldungen an einer Webseite über Indy scheitern regelmäßig immer wieder am gleichen Problem:
Indy hat keine Java Script Engine aber die Webseite erfordert zwingend Java Script.

Daher gibt es nur folgende Lösungen:
* Webbrowser-Control (Internet Explorer) benützen
* einen Headless Browser (z.B. PhantomJS) benützen
allerdings gibt es von Delphi aus keine Schnittstellen zu einem von diesen Headless Browsern (was nicht bedeutet dass
es nicht möglich wäre; es ist nur sehr viel Forschungsarbeit notwendig)
* in Sonderfällen (wie z.B. bei EBay) kann man eine offizelle API ansteuern und schickt dazu XML, JSON oder SOAP-Daten
per HTTP/HTTPS-Protokoll

[Natcree]

alsoich habe mir jetzt die free vcl für ebay installiert und mich auch bei ebay developer registriert. wo bekomme ich die full source vcl her?

[vagtler]

Was ist "Free VCL for eBay" und was ist "Full Source VCL"?

Wenn Du eine fertige Delphi-Implementierung der eBay-API suchst, dann kannst Du mal bei http://www.ea4d.com/ schauen.

[Natcree]

da habe ich mier die Free gezogen die fullsource bekomme ich nicht runtergeladen. Diese scheint geld zu kosten.

[Daniel]

Das ist korrekt und beantwortet die Frage, wo man die Vollversion herbekommt. Kaufen. Wo, weißt Du ja jetzt.

[Natcree]

Alles klar ich danke euch. :) Dann werde ich mal einkaufen .... .