Ver Mensaje Individual
  #5  
Antiguo 07-11-2018
jrojasmcfia jrojasmcfia is offline
Miembro
 
Registrado: feb 2018
Posts: 18
Reputación: 0
jrojasmcfia Va por buen camino
Hola Dec, he estado investigado lo que indicas y generè el siguiente código de un post que me encontre en el clubdelphi, sin embargo el URL donde requiero enviar es https, para lo cual utilizo el componente TIdSSLIOHandlerSocketOPenSSL,como lo indico en el código, pero a la hora de correrlo en mi movil me da error "Could not load SSL library", tienes alguna idea.

Código Delphi [-]
procedure TForm3.enviohttp;
var
  https: TIdHttp;
  params: TStrings;
  respuesta: string;
  idssl: TIdSSLIOHandlerSocketOPenSSL;
begin

   https := TIdHTTP.Create(Self);
   idssl := TIdSSLIOHandlerSocketOpenSSl.Create(nil);
   params := TStringList.Create;
  try
    HTTPs.ReadTimeout := 30000;
    IdSSL.SSLOptions.Mode := sslmClient;
    IdSSL.SSLOptions.Method := sslvSSLv23;
    HTTPs.IOHandler :=idssl;

    //IdSSL.SSLOptions.Mode := sslmUnassigned;
    params.Add('variable1=valor1');
    params.Add('variable2=valor2');
    respuesta := https.Post('https://www.mipagina.com/Imagenes/pruebas-post.php', params);
    ShowMessage('Respuesta: ' + respuesta);
  finally
    https.Free;
    params.Free;
  end;
end;

Última edición por Casimiro Notevi fecha: 07-11-2018 a las 21:04:43.
Responder Con Cita