Gracias por el ejemplo , ahora tengo un problema que realmente no entiendo. Agregue el objeto IdSSLIOHandlerSocketOpenSSL1 a mi form y un nuevo boton al tratar de meter el codigo en el boton, al dar doble click, me aparece este error:
unit1.pas(9,55) Error: source not found: unit C:\lazarus\fpc\2.2.4\units\i386-win32\indy\IdSSLOpenSSL.ppu
Cuando voy a esa direccion la libreia realmente si esta ahi pero me dice que no. La verdad no entiendo nada, cada vez que agrego un objeto a esa form me sale lo mismo al tartar de poner codigo en el objeto. Si quito ese componente todo sale bien.
Alguna pista?
*-------------------------------------------------------* *-Edwin Quijada
*-Developer DataBase
*-JQ Microsistemas
*-Soporte PostgreSQL
*-www.jqmicrosistemas.com
*-809-849-8087
*-------------------------------------------------------*
----------------------------------------
Show quoted text 34 lines
Date: Mon, 27 Jul 2009 14:29:52 -0300
From: clauslack en gmail.com
To: lazarus-es en lists.lazarus.freepascal.org
Subject: Re: [Lazarus-es] Indy 10 ,Tidhttp y SSL
Aqui va un ejemplo de una news de delphi.
Necesistas los clientes DLL de SSL. en
http://indy.fulgan.com/SSL/
Necesitas un memo.(lo otro lo crea dinamicamente)
uses IdHTTP, IdSSLOpenSSL;
procedure TForm1.Button2Click(Sender: TObject);
var https: TIdHTTP;URL: string;
ReturnedPage: string;
SSLIOHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
SSLIOHandler:= TIdSSLIOHandlerSocketOpenSSL.Create;
URL := '
https://mail.google.com';
https := TIdHTTP.Create(nil);
try
https.IOHandler := SSLIOHandler;
ReturnedPage:= https.Get(URL);
Memo1.Text := ReturnedPage;
finally
https.Free;
SSLIOHandler.Free;
end;
end;
Yo no he probado mucho esto, asi que puedes hacerlo tu :)
_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es_________________________________________________________________
