I want to use OutputDebugString()
in my application and then have the option to show it in a separate viewer when the application is deployed in the field.
That is to say, I don't want to have to change a flag and rebuild my .exe to turn debugging on and off.
Googling around, it seems like DebugView should handle that, but neither it, nor TraceTool show any output from this code.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
OutputDebugString(PChar('Hello, wurld'));
end;
end.
I have read the documentation, to no avail, and see that others have had similar problems, but have not posted a solution.
Is there a solution?
GExperts has a debug viewer and a unit you add to your application that will do this for you, even in XE2 Starter. See the DebugIntf
unit and the GExpertsDebugWindow.exe
application that it includes. These work under XE2 Starter (and pretty much all other versions of Delphi).
GExperts also includes tons of other IDE and editor enhancements that are great, and of course they've been around forever, so they're pretty solid tools.