Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Delphi para la web
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-09-2013
JuanOrtega JuanOrtega is offline
Miembro
NULL
 
Registrado: sep 2011
Posts: 130
Poder: 13
JuanOrtega Va por buen camino
Ayuda con función en Delphi

Tengo el siguiente código en Delphi :

Código Delphi [-]
function Check(const UserAgent: string; const Server: string; const Resource: string; const Data: AnsiString): string;
    var
      hInet: HINTERNET;
      hHTTP: HINTERNET;
      hReq: HINTERNET;
      Buffer: array[0..1023] of AnsiChar;
      i, BufferLen: Cardinal;
    const
      accept: packed array[0..1] of LPWSTR = (PChar('*/*'), nil);
      header: string = 'Content-Type: application/x-www-form-urlencoded';
    begin
      Result := '';
     
      hInet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_PRECONFIG,
        nil, nil, 0);
      try
        hHTTP := InternetConnect(hInet, PChar(Server), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
        try
          hReq := HttpOpenRequest(hHTTP, PChar('POST'), PChar(Resource), nil, nil, @accept, 0, 1);
          try
            if not HttpSendRequest(hReq, PChar(header), Length(header), PChar(Data), Length(Data)) then
              raise Exception.Create('HttpOpenRequest failed. ' + SysErrorMessage(GetLastError));
            repeat
              InternetReadFile(hReq, @Buffer, SizeOf(Buffer), BufferLen);
              if BufferLen = SizeOf(Buffer) then
                Result := Result + AnsiString(Buffer)
              else if BufferLen > 0 then
                for i := 0 to BufferLen - 1 do
                  Result := Result + Buffer[i];
            until BufferLen = 0;
          finally
            InternetCloseHandle(hReq);
          end;
        finally
          InternetCloseHandle(hHTTP);
        end;
      finally
        InternetCloseHandle(hInet);
      end;
    end;
     
  
Memo1.Lines.Add(Check('Agente','localhost','pos.php','probar=test+submit=Now'));

Mi duda está en el tercer argumento en el cual tengo que poner los datos para POST:

'probar=test+submit=Now'

Estos datos no funcionan ya que cuando capturo la respuesta en el memo se muestra que el metodo post funciono mal

El código del archivo pos.php es


Código PHP:
<form action='' method=POST>
<input type=text name=probar value=test>
<input type=submit name=control value=Now>
</form>
<br><br>

<?php 
if (isset($_POST['control'])) {
echo 
$_POST['probar']."<br>";
}
?>
La pregunta es: ¿cómo ordeno el tercer argumento para que el formulario funcione bien?

¿ Alguien me puede ayudar ?

Última edición por Casimiro Notevi fecha: 23-09-2013 a las 11:02:16.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
ayuda con funcion copy Rofocale Varios 2 12-05-2010 02:28:09
Ayuda: función HH:MM:SS MaMu Varios 15 10-04-2008 15:05:52
Ayuda con la función Right Javi2 SQL 5 27-12-2007 22:59:57
Ayuda con Funcion edelphi Varios 3 17-07-2006 07:24:03
Ayuda con una función McRight2k Varios 1 13-08-2003 22:47:04


La franja horaria es GMT +2. Ahora son las 21:11:09.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi