mainunit.cpp

著名的SecureBlackBox控件完整源码

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "MainUnit.h"
//---------------------------------------------------------------------------
//#pragma package(smart_init)
#pragma link "SBHTTPSClient"
#pragma link "SBSimpleSSL"
#pragma resource "*.dfm"
TFrmFileUpload *FrmFileUpload;
//---------------------------------------------------------------------------
__fastcall TFrmFileUpload::TFrmFileUpload(TComponent* Owner)
        : TForm(Owner)
{
	SetLicenseKey((AnsiString)"ADDCD14AD06709806817E0B3D7BFD0A2222D536FE156466C5D5FE65DB5DEAE76" +
	  "FFDEBC07E915A5751C12C01C783958872A38E4A5EDA140E7247E0F2E56442A3C" +
	  "F3E9347AD8FDE52083A0DFC86BC00ECB0FD0CF1B51159A2BCB84F6EA6349EF47" +
	  "5C15A59AFCC55F7C3AAD26C279628B5D91B1DC94BD2385354A70CCA3B76101D9" +
	  "F41C84A639FC3CCE4BA8F0CC4A66DCD150114A3F58C1AD46B7B94643741BC20A" +
	  "8DCA83AB921480951B423CAA19EF1863A47CA2C3422E7E5634BED98939A5AE43" +
	  "DE1E4BAD79E66D8A5C973B3455656C8C9B6FF024FADD6CDA02D0F506D98493C8" +
      "BD1ED7B237DB75FA31F2C82654490CDDDEE24E19939137B9E1DB05508733B22F");
}
//---------------------------------------------------------------------------
void __fastcall TFrmFileUpload::BtStartClick(TObject *Sender)
{
    if (!HttpClient->Active)
    {
        if (FileExists(EdFileName->Text))
        {
            TFileStream* FS = new TFileStream(EdFileName->Text, fmOpenRead | fmShareDenyWrite);
            TStringList* SL = new TStringList;
            SL->Add("upload=Upload");
            PBUploading->Min = 0;
            PBUploading->Max = FS->Size;
            PBUploading->Position = 0;
            BtStart->Caption = "Stop";
            HttpClient->Post(EdURL->Text, SL, "userfile", EdFileName->Text, FS, "", true);
            BtStart->Caption = "Start";
        }
        else
            Application->MessageBox("Cant open the specified file.", "Error", MB_OK);
    }
    else
    {
        HttpClient->Close(true);
        BtStart->Caption = "Start";
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmFileUpload::BtSelClick(TObject *Sender)
{
    if (dlgOpen->Execute())
        EdFileName->Text = dlgOpen->FileName;
}
//---------------------------------------------------------------------------
void __fastcall TFrmFileUpload::HttpClientData(TObject *Sender,
      Pointer Buffer, int Size)
{
    char* S = new char[Size+1] ;
    memset(S,0,Size+1);
    Move(Buffer, S, Size);
    ShowMessage(S);
    delete[] S;
}
//---------------------------------------------------------------------------
void __fastcall TFrmFileUpload::HttpClientProgress(TObject *Sender,
      __int64 Total, __int64 Current, bool &Cancel)
{
    if (Total != -1)
    {
        PBUploading->Max = Total;
        PBUploading->Position = Current;
    }
    Cancel = false;
}
//---------------------------------------------------------------------------