Einzelnen Beitrag anzeigen

IanVanDuck

Registriert seit: 14. Jun 2013
10 Beiträge
 
Delphi 7 Professional
 
#14

AW: benötige Hilfe zur Umsetzung der IDS - Scnittstelle von ITEK

  Alt 22. Mär 2018, 14:38
Scheinbar nicht.

Delphi-Quellcode:
  strData :=
    'KNDR=' + URLEncode(Edit1.Text) + '&' +
    'NAME_KUNDE=' + URLEncode(Edit2.Text) + '&' +
    'ACTION=' + URLEncode('SV') + '&' +
    'HOOKURL=' + URLEncode('http://.....................');

  PostData := VarArrayCreate([0, Length(strData) - 1], varByte);

  for i := 1 to Length(strData) do
    PostData[i-1] := Ord(strData[i]);

  Headers := 'Content-Type: multipart/form-data' + #10#13;
 
  WebBrowser1.Navigate('https://eshop................', EmptyParam, EmptyParam, PostData,Headers);
So hatte ich das versucht.
  Mit Zitat antworten Zitat