//---------------------------------------------------------------------------
void __fastcall THttpTestForm::HeadButtonClick(TObject *Sender)
{
int I;
DisplayMemo->Clear();
DocumentMemo->Clear();
SetButtonState(FALSE);
PrepareConnection();
SslHttpCli1->RcvdStream = NULL;
try {
SslHttpCli1->Head();
} __except (TRUE) {
SetButtonState(TRUE);
Display("HEAD Failed !");
Display("StatusCode = " + IntToStr(SslHttpCli1->StatusCode));
Display("ReasonPhrase = " + SslHttpCli1->ReasonPhrase);
return;
}
Display("StatusCode = " + IntToStr(SslHttpCli1->StatusCode));
for (I = 0; I < SslHttpCli1->RcvdHeader->Count; I++)
Display("hdr>" + SslHttpCli1->RcvdHeader->Strings[I]);
SetButtonState(TRUE);
}
bool SendMailSms::SendEmail(const char* from, const char* to, const char* subject, const char* body) {
PrepareConnection(sendEmailPath);
AddParam("from", from);
AddParam("sender", from);
AddParam("replyTo", from);
AddParam("subject", subject);
AddParam("to", to);
AddParam("bodyText", body);
return FinalizeConnection();
}
//---------------------------------------------------------------------------
void __fastcall THttpTestForm::GetButtonClick(TObject *Sender)
{
try {
PrepareConnection();
Display("Connecting...");
GetButton->Enabled = FALSE;
DocumentMemo->Clear();
SslHttpCli1->GetASync();
} catch (Exception& E) {
Display("Connect error. " + E.ClassName() + ": " + E.Message);
return;
}
}
bool
Client::Connect(const SocketType& type)
{
fType = type;
try {
Start();
PrepareConnection();
Announce();
} catch (Exception& e) {
e.Dump();
return false;
}
fIsConnected = true;
return true;
}