Baslikta da belirttigim gibi ssl kullanilan bir site var ve oraya veri post etmem lazim. delphide
Kod: Tümünü seç
var
sPostData: TStringList;
sHttpSocket: TIdHTTP;
sshSocketHandler: TIdSSLIOHandlerSocketOpenSSL;
resStream: TMemoryStream;
// xDoc: IXMLDocument;
begin
// Result := nil;
try
resStream := TMemoryStream.Create;
try
sPostData := TStringList.Create;
try
// sPostData.Add('clientCode=' + ERPLYAccountCode);
sPostData.Add('request=verifyUser');
sPostData.Add('version=1.0');
sPostData.Add('responseType=XML');
sPostData.Add('responseMode=normal');
sPostData.Add('username=' + user);
sPostData.Add('password=' + pass);
sPostData.Add('sessionLength=' + IntToStr(sessionLength));
sHttpSocket := TIdHTTP.Create;
try
sshSocketHandler := TIdSSLIOHandlerSocketOpenSSL.Create(sHttpSocket);
sHttpSocket.IOHandler := sshSocketHandler;
sHttpSocket.Request.ContentType := 'application/x-www-form-urlencoded';
sHttpSocket.Post('https://websitesiadresi/e-PublishingSystem/index.php/API/giris', sPostData, resStream);
finally
sHttpSocket.Free;
end;
finally
sPostData.Free;
end;
resStream.Position := 0;
// xDoc := CreateXMLDoc;
// xDoc.LoadFromStream(resStream);
// Result := xDoc;
finally
resStream.Free;
end;Teşekkürler.
