Send og modtag: Https

Du skal have fat i en SSL socket komponent (HTTPS er HTTP over SSL).

Google synes dig primært at finde kommercielle løsninger:
http://www.secureblackbox.com/delphi-ssl.html
http://www.nsoftware.com/products/showprod.aspx?part=ISD5-A
etc.

Men måske kender andre nogle gratis.

Har kigget på det der blackbox noget, men synes ikke lige at jeg vil have (mange) penge for noget som jeg måske ikke kan bruge...

Det forstå jeg fuldt ud.

Men 7-9-13 så er der nogen som kender et gratis alternativ.

;)

Jeg er ret sikker på man kan bruge HTTPS med Piette's HTTP komponent, og den er gratis. Du kan finde den her:

http://www.overbyte.be/frame_index.html?redirTo=/ssl.html

Ser om jeg kan finde ud af det (og om det kan bruges)

Den siger et par fejl:

[Error] WSocket.pas(1217): Undeclared identifier: 'PSockAddr'
[Error] WSocket.pas(2498): Undeclared identifier: 'IP_DEFAULT_MULTICAST_TTL'
[Error] WSocket.pas(3739): Undeclared identifier: 'IP_MULTICAST_TTL'
[Error] WSocket.pas(3749): Undeclared identifier: 'IP_MULTICAST_IF'
[Error] WSocket.pas(3839): Undeclared identifier: 'in_addr'
[Error] WSocket.pas(3940): Undeclared identifier: 'IP_ADD_MEMBERSHIP'

+ lidt andre

Ligger alle de ting i en eller anden fil, i så fald, hvilken?

Skal nok lige sige at jeg bruger Delphi 6 Enterprise

Hvis du har Delphi 6 Enterprise følger Indy's komponentern jo med.. Der skulle da vist også være både HTTPS-klienter og servere. Ellers se www.nevrona.com/indy

Mener ikke der er https.. men kigger lige igen

TIdHTTP supports HTTP 1.0 and HTTP 1.1 protocols for use as a web-browser or web-robot.

TIdHTTP also supports the Secure Hypertext Transport protocol (HTTPS) as described in the Internet Standards document:

The Secure HyperText Transfer Protocol, RFC 2660



Sejt!! :D

Hvordan sender og modtager jeg med IdHttp?

jeg har prøvet dette

var
  send: String;
begin
  send := 'GET /rdr/pprdr.asp HTTP/1.1'+#13#10#13#10;
  IdConnectionInterceptOpenSSL1.Send(send, length(send));

men den kommer bare med en access violation

Har meget brug for det.. sætter pointene op til 200

Har fundet ud af det nu.. Har bare et nyt problem.. Hvordan sender jeg dette:

GET /login2.srf HTTP/1.1
Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=example%40passport.com,pwd=password,lc=1033,id=507,tw=40,fs=1,ru=http%3A%2F%2Fmessenger%2Emsn%2Ecom,ct=1062764229,kpp=1,kv=5,ver=2.1.0173.1,tpf=43f8a4c8ed940c04e3740be46c4d1619
Host: login.passport.com

Og så får headeren som den sender tilbage? Har prøvet følgende som ikke virkede (Object has moved):

  IdHTTP1.Port := 443;
  IdHTTP1.Host := 'login.passport.com';
  IdHTTP1.Request.ExtraHeaders.Add('Host: login.passport.com');
  IdHTTP1.Request.ExtraHeaders.Add('Authorization: Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=example%40passport.com,pwd=password,lc=1033,id=507,tw=40,fs=1,ru=http%3A%2F%2Fmessenger%2Emsn%2Ecom,ct=1062764229,kpp=1,kv=5,ver=2.1.0173.1,tpf=43f8a4c8ed940c04e'+'3740be46c4d1619');
  IdHTTP1.ProtocolVersion := pv1_1;
  IdHTTP1.Connect;
  IdHTTP1.Head('/login2.srf');
  ShowMessage(IdHTTP1.Response.ExtraHeaders.Text);
  IdHTTP1.Disconnect;

Har selv fundet ud af det...

cmd -> lægger du et svar?

Ja - godt du fandt ud af det :o)