//---------------------------------------------------------------------------
LRESULT CSimpleDialog::OnOK(HWND hDlg, WPARAM wParam, LPARAM lParam)
{
HRESULT hr = S_OK;
WCHAR wszBuffSampleText[MAX_BUFFER_SIZE] = {0};
WCHAR wszBuffVirtualDir[INTERNET_MAX_URL_LENGTH] = {0};
BOOL fRequireUploadReply = FALSE;
LRESULT lRet = 1;
CPack XMLPack;
//
// Grab input values from the UI
//
hr = CollectUserInput(
wszBuffVirtualDir,
ARRAYSIZE(wszBuffVirtualDir),
wszBuffSampleText,
ARRAYSIZE(wszBuffSampleText),
&fRequireUploadReply
);
if (FAILED(hr))
{
DisplayErrorMessage(L"Failed to collect input values from the UI.", hr);
lRet = 0;
goto done;
}
//
// Pack the text as an XML file and UPLOAD it to the server!!
//
AddStatusMessage(L"START OF PROCESS TO UPLOAD FILE");
hr = XMLPack.PackText(wszBuffSampleText);
if (FAILED(hr))
{
lRet = 0;
goto done;
}
hr = XMLPack.Upload(STR_JOBNAME_DEFAULT, wszBuffVirtualDir, fRequireUploadReply);
if (FAILED(hr))
{
lRet = 0;
goto done;
}
done:
if (!lRet)
{
AddStatusMessage(L"END OF UPLOAD PROCESS -- FAILED");
}
return lRet;
}
void DCPUToolchain::SendStatus()
{
vm_t* vm = get_vm();
AddStatusMessage(vm);
}
