Pomoč pri izdelavi SOAP preko SSL-ja

Iščete ali ponujate delo?
Odgovori
bosti2
Prispevkov: 4
Pridružen: 19.05.2011 09:46:25

Pomoč pri izdelavi SOAP preko SSL-ja

Odgovor Napisal/-a bosti2 » 19.05.2011 10:00:07

Pozdravljeni,

iščem nekoga, ki se spozna na izdelavo SOAP preko https povezave v Delphiju, preferenčno Delphi 7. Ker meni nikakor ne uspe urediti delujočo povezavo in sem v časovni stiski iščem nekoga ki bi mi pomagal to urediti, seveda za ustrezno plačilo.

Informacije na email: bostjan . lesjak @ unikum . si (brez presledkov :))

lp,
Boštjan

riko
Prispevkov: 444
Pridružen: 25.02.2004 12:40:57

Re: Pomoč pri izdelavi SOAP preko SSL-ja

Odgovor Napisal/-a riko » 19.05.2011 16:24:30

Prebri si tole in tole pa boš mogoče najhitreje rešil problem.

bosti2
Prispevkov: 4
Pridružen: 19.05.2011 09:46:25

Re: Pomoč pri izdelavi SOAP preko SSL-ja

Odgovor Napisal/-a bosti2 » 19.05.2011 21:35:15

riko napisal/-a:Prebri si tole in tole pa boš mogoče najhitreje rešil problem.
Hvala za linke, ko sem brskal, sem jih tudi prebral, za osnovo sem vzel tole:

http://groups.google.com/group/borland. ... c5c2?pli=1

Ko sem pripravil funkcijo kot je na vzorcu, sem pa naletel na novo napako in sicer: "an error occurred in the secure channel", tega pa ne uspem rešiti, ker mi napaka sama ne pove dovolj informacij kljub brskanju z googlom.

PeJo
Prispevkov: 988
Pridružen: 08.01.2003 16:10:34

Re: Pomoč pri izdelavi SOAP preko SSL-ja

Odgovor Napisal/-a PeJo » 20.05.2011 08:01:43

Poskusi s tem. Zadeva je namenjena razvoju, dokler se uporabljajo temp certifikati.

Koda: Izberi vse

unit JpHttpRio;

interface

uses
  Windows, SOAPHTTPClient, Wininet, SOAPHTTPTrans, Classes;

type
  { INFO: handle httpwebnode to ignore untrusted certificates }  
  TJpHTTPRIO = class(THTTPRIO)
  private
    procedure HttpRioHTTPWebNodeBeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
  public
    constructor Create(AOwner: TComponent); override;
  end; { TJpHTTPRIO }

implementation

uses
  SysUtils;

{ TJpHTTPRIO }

constructor TJpHTTPRIO.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  Self.HTTPWebNode.OnBeforePost := HttpRioHTTPWebNodeBeforePost;
end; { TJpHTTPRIO.Create }

procedure TJpHTTPRIO.HttpRioHTTPWebNodeBeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
  SecurityFlags: DWord;
  SecurityFlagsLen: DWord;
  Request: HINTERNET;
begin
  Request := Data;
  if soIgnoreInvalidCerts in Self.HTTPWebNode.InvokeOptions then begin
    SecurityFlagsLen := SizeOf(SecurityFlags);
    InternetQueryOption(Request, INTERNET_OPTION_SECURITY_FLAGS, Pointer(@SecurityFlags), SecurityFlagsLen);
    SecurityFlags := SecurityFlags or
                     SECURITY_FLAG_IGNORE_REVOCATION or
                     SECURITY_FLAG_IGNORE_UNKNOWN_CA or
                     SECURITY_FLAG_IGNORE_CERT_CN_INVALID or
                     SECURITY_FLAG_IGNORE_CERT_DATE_INVALID or
                     SECURITY_FLAG_IGNORE_WRONG_USAGE or
                     SECURITY_FLAG_IGNORE_REDIRECT_TO_HTTPS or
                     SECURITY_FLAG_IGNORE_REDIRECT_TO_HTTP;
    InternetSetOption(Request, INTERNET_OPTION_SECURITY_FLAGS, Pointer(@SecurityFlags), SecurityFlagsLen);
  end;
end; { TJpHTTPRIO.HttpRioHTTPWebNodeBeforePost }

end.
In še uporaba - v unitu, ki se kreira ob uvozu WSDLja, zamenjaš THTTPRio

Koda: Izberi vse

function CostumSoapRequest(URL: string; Proxy: string; ProxyBaypass: string;
                         UseWSDL: Boolean; Addr: string; HTTPRIO: TJpHTTPRIO): TCostumSoapRequest;
lp

bosti2
Prispevkov: 4
Pridružen: 19.05.2011 09:46:25

Re: Pomoč pri izdelavi SOAP preko SSL-ja

Odgovor Napisal/-a bosti2 » 20.05.2011 19:59:41

PeJo napisal/-a:Poskusi s tem. Zadeva je namenjena razvoju, dokler se uporabljajo temp certifikati.
Kaj naj drugega napišem kot HVALA. Sem bil prav presenečen, ko sem dobil nazaj rezultat namesto napake.
Piši mi prosim na ZS, da se zmeniva glede plačila.

lp,
Boštjan

PeJo
Prispevkov: 988
Pridružen: 08.01.2003 16:10:34

Re: Pomoč pri izdelavi SOAP preko SSL-ja

Odgovor Napisal/-a PeJo » 21.05.2011 10:36:26

bosti2 napisal/-a:Kaj naj drugega napišem kot HVALA. Sem bil prav presenečen, ko sem dobil nazaj rezultat namesto napake.
Bi bil presenečen, če bi napisal da ne dela.
bosti2 napisal/-a:Piši mi prosim na ZS, da se zmeniva glede plačila.
Glede plačila pa takole: kakšen pirček bo v teh prihajajočih poletnih dneh padel na zelo plodna tla ...

lp

zippo
Prispevkov: 264
Pridružen: 14.07.2002 12:11:29

Re: Pomoč pri izdelavi SOAP preko SSL-ja

Odgovor Napisal/-a zippo » 24.05.2011 22:34:04

Če je pirček na obali se pridružim še jaz, pa še eno rondo častim jaz! :)

PeJo
Prispevkov: 988
Pridružen: 08.01.2003 16:10:34

Re: Pomoč pri izdelavi SOAP preko SSL-ja

Odgovor Napisal/-a PeJo » 25.05.2011 10:24:59

zippo napisal/-a:Če je pirček na obali se pridružim še jaz, pa še eno rondo častim jaz! :)
Ko pridemo rolat na obalo, bo pirček še kako prijal ...

bosti2
Prispevkov: 4
Pridružen: 19.05.2011 09:46:25

Re: Pomoč pri izdelavi SOAP preko SSL-ja

Odgovor Napisal/-a bosti2 » 03.06.2011 14:27:27

PeJo napisal/-a:
bosti2 napisal/-a:Piši mi prosim na ZS, da se zmeniva glede plačila.
Glede plačila pa takole: kakšen pirček bo v teh prihajajočih poletnih dneh padel na zelo plodna tla ...
Sem šele sedaj opazil, da nisem odgovoril...

Ko bo kakšno Delphi.si srečanje dam za rundo.

Odgovori