Um conjunto de rotinas para integração do Delphi com a Internet usando protocolo HTTP.

// // Uses IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP; // //============================================================================== // Executa um Get em um servidor WEB e recupera o resultado como Binario //============================================================================== // Parametros: // // URLFile         : Endereço WEB do arquivo a ser executado // ResultBuffer    : Stream que retornara o resultado da requisicao // HttpStatus      : String por referência que retornará o status da requisicao http // FProxyServer    : Opcional: Nome do servidor de proxy // FProxyPort      : Opcional: Porta do servidor de proxy // FUserName       : Opcional: Login do usuário quando necessário autenticacao // FPassword       : Opcional: Senha do usuário quando necessário autenticacao // ProtocolVersion : Versão do protocolo HTTP, pode ser 1.0 ou 1.1 //============================================================================== Procedure HttpGetBinary(URLFile:String; ResultBuffer:TMemoryStream;  Var HttpStatus:String; FProxyServer, FProxyPort, FUserName, FPassword:String; ProtocolVersion:String); Var Http   : TIDHttp;     Freeze : TIdAntiFreeze; Begin    Try       Http   := TIDHttp.Create(Nil);       Freeze := TIdAntiFreeze.Create(nil);       If (ProtocolVersion = '1.1') or (ProtocolVersion = '11') Then Begin          HTTP.ProtocolVersion := pv1_1;       End Else Begin          HTTP.ProtocolVersion := pv1_0;       End;       HTTP.Request.Username := FUserName;       HTTP.Request.Password := FPassword;       If FProxyServer<>'' Then Begin          HTTP.Request.ProxyParams.ProxyServer := FProxyServer;          HTTP.Request.ProxyParams.ProxyPort   := StrToInt(FProxyPort);       End;       Try          ResultBuffer.Clear;          Http.Get(URLFile,ResultBuffer);          ResultBuffer.Position := 0;          HttpStatus := Http.ResponseText;       Except          HttpStatus := Http.ResponseText;       End;    Finally       Freeze.Free; Http.Free;    End; End; //============================================================================== // Executa um Get em um servidor WEB e recupera o resultado como String //============================================================================== // Parametros: // // URLFile         : Endereço WEB do arquivo a ser executado // ResultBuffer    : String que retornara o resultado da requisicao // HttpStatus      : String por referência que retornará o status da requisicao http // FProxyServer    : Opcional: Nome do servidor de proxy // FProxyPort      : Opcional: Porta do servidor de proxy // FUserName       : Opcional: Login do usuário quando necessário autenticacao // FPassword       : Opcional: Senha do usuário quando necessário autenticacao // ProtocolVersion : Versão do protocolo HTTP, pode ser 1.0 ou 1.1 //============================================================================== Procedure HttpGetString(URLFile:String; Var ResultBuffer:String; Var HttpStatus:String; FProxyServer, FProxyPort, FUserName, FPassword:String; ProtocolVersion:String); Var Http   : TIDHttp;     Freeze : TIdAntiFreeze; Begin    Try       ResultBuffer := '';       Http   := TIDHttp.Create(Nil);       Freeze := TIdAntiFreeze.Create(nil);       If (ProtocolVersion = '1.1') or (ProtocolVersion = '11') Then Begin          HTTP.ProtocolVersion := pv1_1;       End Else Begin          HTTP.ProtocolVersion := pv1_0;       End;       HTTP.Request.Username := FUserName;       HTTP.Request.Password := FPassword;       If FProxyServer<>'' Then Begin          HTTP.Request.ProxyParams.ProxyServer := FProxyServer;          HTTP.Request.ProxyParams.ProxyPort   := StrToInt(FProxyPort);       End;       Try          HttpStatus := '';          ResultBuffer := Http.Get(URLFile);          HttpStatus := Http.ResponseText;       Except          HttpStatus := Http.ResponseText;       End;    Finally       Freeze.Free; Http.Free;    End; End; //============================================================================== // Executa um post em um servidor WEB e recupera o resultado como String //============================================================================== // Parametros: // // URLFile         : Endereço WEB do arquivo a ser executado // ResultBuffer    : String por referencia que retornara o resultado da requisicao // DataBuffer      : String contendo as variaveis a serem passadas ao post // FProxyServer    : Opcional: Nome do servidor de proxy // FProxyPort      : Opcional: Porta do servidor de proxy // FUserName       : Opcional: Login do usuário quando necessário autenticacao // FPassword       : Opcional: Senha do usuário quando necessário autenticacao // HttpStatus      : String por referência que retornará o status da requisicao http // ProtocolVersion : Versão do protocolo HTTP, pode ser 1.0 ou 1.1 //============================================================================== Procedure HttpPostString(URLFile:String; Var ResultBuffer:String; Var HttpStatus:String; DataBuffer, FProxyServer, FProxyPort, FUserName, FPassword:String; ProtocolVersion:String); Var Http        : TIDHttp;     Freeze      : TIdAntiFreeze;     oDataBuffer : TStringList;     oRespBuffer : TStringStream; Begin    Try       ResultBuffer := '';       Http   := TIDHttp.Create(Nil);       Freeze := TIdAntiFreeze.Create(nil);       If (ProtocolVersion = '1.1') or (ProtocolVersion = '11') Then Begin          HTTP.ProtocolVersion := pv1_1;       End Else Begin          HTTP.ProtocolVersion := pv1_0;       End;       HTTP.Request.Username := FUserName;       HTTP.Request.Password := FPassword;       HTTP.Request.ContentType := 'application/x-www-form-urlencoded';       If FProxyServer<>'' Then Begin          HTTP.Request.ProxyParams.ProxyServer := FProxyServer;          HTTP.Request.ProxyParams.ProxyPort   := StrToInt(FProxyPort);       End;       Try          HttpStatus := '';          oDataBuffer := TStringList.Create;          oRespBuffer := TStringStream.Create('');          oDataBuffer.Text := DataBuffer;          Http.Post(URLFile,oDataBuffer,oRespBuffer);          ResultBuffer := oRespBuffer.DataString;          oRespBuffer.Free; oDataBuffer.Free;          HttpStatus := Http.ResponseText;       Except          HttpStatus := Http.ResponseText;       End;    Finally       Freeze.Free; Http.Free;    End; End; //============================================================================== // Executa um post em um servidor WEB e recupera o resultado como Binario //============================================================================== // Parametros: // // URLFile         : Endereço WEB do arquivo a ser executado // ResultBuffer    : Stream que retornara o resultado da requisicao // DataBuffer      : String contendo as variaveis a serem passadas ao post // FProxyServer    : Opcional: Nome do servidor de proxy // FProxyPort      : Opcional: Porta do servidor de proxy // FUserName       : Opcional: Login do usuário quando necessário autenticacao // FPassword       : Opcional: Senha do usuário quando necessário autenticacao // HttpStatus      : String por referência que retornará o status da requisicao http // ProtocolVersion : Versão do protocolo HTTP, pode ser 1.0 ou 1.1 //============================================================================== Procedure HttpPostBinary(URLFile:String; Var ResultBuffer:TMemoryStream; Var HttpStatus:String; DataBuffer, FProxyServer, FProxyPort, FUserName, FPassword:String; ProtocolVersion:String); Var Http        : TIDHttp;     Freeze      : TIdAntiFreeze;     oDataBuffer : TStringList; Begin    Try       ResultBuffer.Clear;       Http   := TIDHttp.Create(Nil);       Freeze := TIdAntiFreeze.Create(nil);       If (ProtocolVersion = '1.1') or (ProtocolVersion = '11') Then Begin          HTTP.ProtocolVersion := pv1_1;       End Else Begin          HTTP.ProtocolVersion := pv1_0;       End;       HTTP.Request.Username := FUserName;       HTTP.Request.Password := FPassword;       HTTP.Request.ContentType := 'application/x-www-form-urlencoded';       If FProxyServer<>'' Then Begin          HTTP.Request.ProxyParams.ProxyServer := FProxyServer;          HTTP.Request.ProxyParams.ProxyPort   := StrToInt(FProxyPort);       End;       Try          HttpStatus := '';          oDataBuffer := TStringList.Create;          oDataBuffer.Text := DataBuffer;          Http.Post(URLFile,oDataBuffer,ResultBuffer);          oDataBuffer.Free;          HttpStatus := Http.ResponseText;       Except          HttpStatus := Http.ResponseText;       End;    Finally       Freeze.Free; Http.Free;    End; End;

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: ASP;
Data.........: 11/04/2002 14:56:22
Visualizado..: 2571 vezes
Fonte........: AdeN Knowledge DB