Discussion forums for open issues and questions concerning database tools, data access components and developer tools from Devart
https://forums.devart.com/
I just don't have enough timeViktorV wrote:NonBlocking mode is not supported in console applications. If you want us to implement the feature, please post it at our user voice forum: http://devart.uservoice.com/forums/174370-securebridge If the suggestion gets a lot of votes, we will consider the possibility to implement it.
Code: Select all
var
AppTerminated: Boolean;
ActiveTransmission: Boolen;
{...}
procedure PumpMessagess;
var
Unicode: Boolean;
Msg: TMsg;
begin
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
begin
Unicode := (Msg.hwnd = 0) or IsWindowUnicode(Msg.hwnd);
TranslateMessage(Msg);
if Unicode then
DispatchMessageW(Msg)
else
DispatchMessageA(Msg);
end;
end;
procedure Wait;
var
WaitResult: DWORD;
Dummy: THandle;
begin
while ActiveTransmission and (not AppTerminated) do
begin
// event can be used to avoid potential 1 second delay
WaitResult := MsgWaitForMultipleObjects(0, Dummy, False, 1000, QS_ALLINPUT);
if WaitResult = WAIT_OBJECT_0 then // messages in queue
PumpMessagess;
{check termination condition or do anything...}
end;
end;
{.....}
ScSFTPClientInstance.UploadFile(....);
Wait;
{.....}