43 lines
1.4 KiB
Plaintext
43 lines
1.4 KiB
Plaintext
//---------------------------------------------------------------------------
|
|
|
|
#ifndef THTTPdownloaderH
|
|
#define THTTPdownloaderH
|
|
//---------------------------------------------------------------------------
|
|
#include <Classes.hpp>
|
|
#include <Controls.hpp>
|
|
#include <StdCtrls.hpp>
|
|
#include <Forms.hpp>
|
|
#include <ComCtrls.hpp>
|
|
#include <Sockets.hpp>
|
|
#include <ExtCtrls.hpp>
|
|
//---------------------------------------------------------------------------
|
|
typedef struct HTTP_headers
|
|
|
|
{
|
|
AnsiString key;
|
|
AnsiString value;
|
|
} THTTP_headers;
|
|
|
|
typedef THTTP_headers* HTTPheaders_list;
|
|
//---------------------------------------------------------------------------
|
|
class THTTPdownloader : public TForm
|
|
{
|
|
__published: // IDE-managed Components
|
|
TTcpClient *TcpClient1;
|
|
TRichEdit *httpResult;
|
|
TPanel *Panel1;
|
|
TRichEdit *statusBar;
|
|
TCheckBox *debug;
|
|
void __fastcall FormDestroy(TObject *Sender);
|
|
private: // User declarations
|
|
public: // User declarations
|
|
__fastcall THTTPdownloader(TComponent* Owner);
|
|
TList *headers;
|
|
|
|
int __fastcall descargarHTML(char *host, char *request, TStream *out);
|
|
};
|
|
//---------------------------------------------------------------------------
|
|
extern PACKAGE THTTPdownloader *HTTPdownloader;
|
|
//---------------------------------------------------------------------------
|
|
#endif
|