View Issue Details
ID | Project | Category | View Status | Date Submitted | Last Update |
---|---|---|---|---|---|
0006483 | JEDI VCL | 00 JVCL Components | public | 2015-12-26 13:37 | 2016-08-06 21:11 |
Reporter | KevinBlack | Assigned To | |||
Priority | normal | Severity | major | Reproducibility | always |
Status | closed | Resolution | fixed | ||
Product Version | 3.48 | ||||
Target Version | Fixed in Version | ||||
Summary | 0006483: TJvDesktopAlert in DLL Function Does not Display if Called fron Console Application | ||||
Description | Have DLL which has a function to display an alert message using TJvDesktopAlert. Function works exceptionally well if called from a Delphi GUI (Forms) application. Same DLL function called from (Delphi) Console Application does not show alert. Same if DLL function called from C++ console app. (Delphi) Console application calling DLL function is very simple, see additional info. Notes: 1. DLL has showmessage at beginning of function to show correct parameters passed 2. The JvDesktopAlert Execute command is executed in DLL when called from console app, just no alert appears | ||||
Additional Information | {$APPTYPE CONSOLE} ... ... begin try pTitle := 'Message Title'; pMessage := 'Message Text'; icon := ICON_CONFIRMATION; Writeln ('before the alert code'); sfms_message(pMessage,ptitle,icon); <--Call to DLL with JvDesktopAlert function Writeln ('after the alert code'); readln; <--Just to stop the console app closing except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end. ::::::: GUI CALL WHICH WORKS :::::::::: // Displays multiple alerts with different Icons ... ... begin try pTitle := 'Message Title'; pMessage := 'This is a message'; for I := 0 to 4 do begin case i of 0: icon := ICON_NONE; 1: icon := ICON_MESSAGE; 2: icon := ICON_WARNING; 3: icon := ICON_ERROR; 4: icon := ICON_CONFIRMATION ; end; errCode := sfms_message(pMessage, pTitle, icon); if errCode < 0 then raise Exception.Create('Error returned: ' + IntToStr(errCode)); end; except on E: Exception do begin ShowMessage(E.Message); end; end; end; | ||||
Tags | No tags attached. | ||||
Date Modified | Username | Field | Change |
---|---|---|---|
2015-12-26 13:37 | KevinBlack | New Issue | |
2016-08-06 21:11 | AHUser | Note Added: 0021360 | |
2016-08-06 21:11 | AHUser | Status | new => closed |
2016-08-06 21:11 | AHUser | Resolution | open => fixed |