Необработено примерче, семпла процедурка за ХТТП.
Това подготвя текста, за да се изпрати по обикновен сокет, без tWebBrowser, но поддържа и Get и Post методите.
Има си и сесия, но тази екстра много зависи от съответния сайт

{}procedure TForm_ComPort.GetText;

    var

      xPar            : string;

      xHeader         : string;

    begin



       xPar        := ComboBoxPar.Text;

//    xPar            := Str_ToHTML( xPar);





      xHeader         :=  'HTTP/1.1'+cCrLf+

                          'Host: '+sURL+cCrLf+

                          'Connection: Keep-Alive'+cCrLf;

      if RadioGroupGetPost.ItemIndex=0 then begin

        OutHTML       :=  'GET '+sFile;

        if xPar<>'' then begin

          OutHTML     :=  OutHTML+'?'+Str_ToHTML( xPar)+cCrLf;

        end;

        OutHTML       := OutHTML+' '+xHeader;

        if EditSession.Text<>'' then begin

          OutHTML     :=  OutHTML +

                          'Cookie: PHPSESSID='+EditSession.Text+cCrLf;

        end;

      end else begin

        if RadioGroupGetPost.ItemIndex=1 then begin

          OutHTML     :=  'POST '+sFile+' '+xHeader+

                          'Content-Type: application/x-www-form-urlencoded'+cCrLf+

                          'Content-Length: '+IntToStr(length(xPar))+cCrLf;

          if EditSession.Text<>'' then begin

            OutHTML   :=  OutHTML+

                          'Cookie: PHPSESSID='+EditSession.Text+cCrLf;

          end;

          if xPar<>'' then begin

            OutHTML   :=  OutHTML+

                          cCrLf+xPar;

          end;

          OutHTML     :=  OutHTML+cCrLf;

        end;

      end;

      OutHTML         :=  OutHTML+cCrLf;

    end;

Съдържаниет е скрито
Влезте за да го видите

Редактирано от NikB на 23.04.06 10:44.