jcl-checkins-diff Mailing List for JEDI Code Library (Page 46)

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

Revision: 2767
          http://jcl.svn.sourceforge.net/jcl/?rev=2767&view=rev
Author:   uschuster
Date:     2009-05-18 22:49:11 +0000 (Mon, 18 May 2009)

Log Message:
-----------
Hello World example for showing custom stack traces

Added Paths:
-----------
    branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/
    branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/HelloWorldFrame.dfm
    branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/HelloWorldFrame.pas
    branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/StackTraceViewerHelloWorldExample.dpk
    branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/StackTraceViewerHelloWorldExampleReg.pas


Property changes on: branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld
___________________________________________________________________
Added: tsvn:projectlanguage
   + 1033
Added: bugtraq:url
   + http://homepages.codegear.com/jedi/issuetracker/view.php?id=%BUGID%
Added: bugtraq:message
   + (Mantis #%BUGID%)
Added: bugtraq:logregex
   + [Mm]antis #?(\d+)(,? ?#?(\d+))+
(\d+)

Added: branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/HelloWorldFrame.dfm
===================================================================

--- branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/HelloWorldFrame.dfm	                        (rev 0)
+++ branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/HelloWorldFrame.dfm	2009-05-18 22:49:11 UTC (rev 2767)
@@ -0,0 +1,14 @@
+object frmHelloWorld: TfrmHelloWorld
+  Left = 0
+  Top = 0
+  Width = 320
+  Height = 240
+  TabOrder = 0
+  object Label1: TLabel
+    Left = 16
+    Top = 16
+    Width = 54
+    Height = 13
+    Caption = 'Hello World'
+  end
+end

Added: branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/HelloWorldFrame.pas
===================================================================
--- branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/HelloWorldFrame.pas	                        (rev 0)
+++ branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/HelloWorldFrame.pas	2009-05-18 22:49:11 UTC (rev 2767)
@@ -0,0 +1,21 @@
+unit HelloWorldFrame;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
+
+type
+  TfrmHelloWorld = class(TFrame)
+    Label1: TLabel;
+  private
+    { Private-Deklarationen }
+  public
+    { Public-Deklarationen }
+  end;
+
+implementation
+
+{$R *.dfm}
+
+end.

Added: branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/StackTraceViewerHelloWorldExample.dpk
===================================================================
--- branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/StackTraceViewerHelloWorldExample.dpk	                        (rev 0)
+++ branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/StackTraceViewerHelloWorldExample.dpk	2009-05-18 22:49:11 UTC (rev 2767)
@@ -0,0 +1,42 @@
+package StackTraceViewerHelloWorldExample;
+
+{$R *.res}
+{$ALIGN 8}
+{$ASSERTIONS ON}
+{$BOOLEVAL OFF}
+{$DEBUGINFO ON}
+{$EXTENDEDSYNTAX ON}
+{$IMPORTEDDATA ON}
+{$IOCHECKS ON}
+{$LOCALSYMBOLS ON}
+{$LONGSTRINGS ON}
+{$OPENSTRINGS ON}
+{$OPTIMIZATION ON}
+{$OVERFLOWCHECKS OFF}
+{$RANGECHECKS OFF}
+{$REFERENCEINFO OFF}
+{$SAFEDIVIDE OFF}
+{$STACKFRAMES OFF}
+{$TYPEDADDRESS OFF}
+{$VARSTRINGCHECKS ON}
+{$WRITEABLECONST OFF}
+{$MINENUMSIZE 1}
+{$IMAGEBASE $400000}
+{$IMPLICITBUILD ON}
+
+requires
+  rtl,
+  vcl,
+  JclStackTraceViewerExpert,
+  vclx,
+  vclactnband,
+  xmlrtl,
+  JclBaseExpert,
+  Jcl,
+  designide;
+
+contains
+  StackTraceViewerHelloWorldExampleReg in 'StackTraceViewerHelloWorldExampleReg.pas',
+  HelloWorldFrame in 'HelloWorldFrame.pas' {frmHelloWorld: TFrame};
+
+end.

Added: branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/StackTraceViewerHelloWorldExampleReg.pas
===================================================================
--- branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/StackTraceViewerHelloWorldExampleReg.pas	                        (rev 0)
+++ branches/jcl-stack-trace/jcl/experts/stacktraceviewer/APIExamples/HelloWorld/StackTraceViewerHelloWorldExampleReg.pas	2009-05-18 22:49:11 UTC (rev 2767)
@@ -0,0 +1,355 @@
+unit StackTraceViewerHelloWorldExampleReg;
+
+interface
+
+procedure Register;
+
+implementation
+
+uses
+  Classes, Contnrs, Forms, JclStackTraceViewerAPI, HelloWorldFrame;
+
+type
+  TTestLocationInfo = class(TInterfacedObject, IJclLocationInfo, IJclPreparedLocationInfo)
+  private
+    FSourceName: string;
+  public
+    destructor Destroy; override;
+    function GetAddress: Pointer;
+    function GetBinaryFileName: string;
+    function GetLineNumber: Integer;
+    function GetLineNumberOffsetFromProcedureStart: Integer;
+    function GetModuleName: string;
+    function GetOffsetFromLineNumber: Integer;
+    function GetOffsetFromProcName: Integer;
+    function GetProcedureName: string;
+    function GetSourceName: string;
+    function GetSourceUnitName: string;
+    function GetUnitVersionDateTime: TDateTime;
+    function GetUnitVersionExtra: string;
+    function GetUnitVersionLogPath: string;
+    function GetUnitVersionRCSfile: string;
+    function GetUnitVersionRevision: string;
+    function GetVAddress: Pointer;
+    function GetValues: Integer;
+
+    function GetFileName: string;
+    function GetFoundFile: Boolean;
+    function GetProjectName: string;
+    function GetRevision: string;
+    function GetTranslatedLineNumber: Integer;
+    procedure SetFileName(AValue: string);
+    procedure SetFoundFile(AValue: Boolean);
+    procedure SetProjectName(AValue: string);
+    procedure SetRevision(AValue: string);
+    procedure SetTranslatedLineNumber(AValue: Integer);
+  end;
+
+  TTestLocationInfoList = class(TInterfacedObject, IJclLocationInfoList)
+  private
+    FItems: TObjectList;
+    FInterfaceList: TInterfaceList;
+  public
+    constructor Create;
+    destructor Destroy; override;
+    function Add: TTestLocationInfo;
+
+    function GetCount: Integer;
+    function GetLocationItems(AIndex: Integer): IJclLocationInfo;
+    function GetPrepared: Boolean;
+    procedure SetPrepared(AValue: Boolean);
+  end;
+
+  TTestTreeViewLink = class(TInterfacedObject, IJclStackTraceViewerTreeViewLink)
+  private
+    FFrameClass: TCustomFrameClass;
+    FItems: TInterfaceList;
+    FText: string;
+    FStack: TTestLocationInfoList;
+  public
+    constructor Create(const AText: string; AFrameClass: TCustomFrameClass);
+    destructor Destroy; override;
+    function Add(const AText: string; AFrameClass: TCustomFrameClass): TTestTreeViewLink;
+    procedure DoShow(AFrame: TCustomFrame); virtual;
+    function GetCount: Integer;
+    function GetFrameClass: TCustomFrameClass;
+    function GetItems(AIndex: Integer): IJclStackTraceViewerTreeViewLink;
+    function GetText: string;
+  end;
+
+{ TTestTreeViewLink }
+
+constructor TTestTreeViewLink.Create(const AText: string; AFrameClass: TCustomFrameClass);
+begin
+  inherited Create;
+  FFrameClass := AFrameClass;
+  FItems := TInterfaceList.Create;
+  FStack := TTestLocationInfoList.Create;
+  FStack._AddRef;
+  FStack.Add.FSourceName := 'SysUtils.pas';
+  FStack.Add.FSourceName := 'Classes.pas';
+  FText := AText;
+end;
+
+destructor TTestTreeViewLink.Destroy;
+begin
+  FStack._Release;
+  //FStack.Free;
+  FItems.Free;
+  inherited Destroy;
+end;
+
+function TTestTreeViewLink.Add(const AText: string; AFrameClass: TCustomFrameClass): TTestTreeViewLink;
+begin
+  Result := TTestTreeViewLink.Create(AText, AFrameClass);
+  FItems.Add(Result);
+end;
+
+procedure TTestTreeViewLink.DoShow(AFrame: TCustomFrame);
+var
+  StackTraceViewerStackFrame: IJclStackTraceViewerStackFrame;
+begin
+  if (FText = 'Stack') and (AFrame.GetInterface(IJclStackTraceViewerStackFrame, StackTraceViewerStackFrame)) then
+  begin
+    //StackTraceViewerStackProcessorServices.PrepareLocationInfoList(FStack, False);
+    StackTraceViewerStackFrame.SetStackList(FStack);
+  end;
+end;
+
+function TTestTreeViewLink.GetCount: Integer;
+begin
+  Result := FItems.Count;
+end;
+
+function TTestTreeViewLink.GetFrameClass: TCustomFrameClass;
+begin
+  Result := FFrameClass;
+end;
+
+function TTestTreeViewLink.GetItems(AIndex: Integer): IJclStackTraceViewerTreeViewLink;
+begin
+  if FItems[AIndex].QueryInterface(IJclStackTraceViewerTreeViewLink, Result) <> S_OK then
+    Result := nil;
+end;
+
+function TTestTreeViewLink.GetText: string;
+begin
+  Result := FText;
+end;
+
+procedure Register;
+var
+  RootLink, Link: TTestTreeViewLink;
+  StackFrameClass: TCustomFrameClass;
+begin
+  if Assigned(StackTraceViewerStackServices) then
+  begin
+    RootLink := TTestTreeViewLink.Create('', nil);
+    Link := RootLink.Add('Hello', nil);
+    Link.Add('World', TfrmHelloWorld);
+    StackFrameClass := StackTraceViewerStackServices.GetDefaultFrameClass(dfStack);
+    if Assigned(StackFrameClass) then
+      Link.Add('Stack', StackFrameClass);
+    StackTraceViewerStackServices.ShowTree(RootLink);
+  end;
+end;
+
+{ TTestLocationInfoList }
+
+function TTestLocationInfoList.Add: TTestLocationInfo;
+var
+  I: IUnknown;
+begin
+  FItems.Add(TTestLocationInfo.Create);
+  FItems.Last.GetInterface(IUnknown, I);
+  FInterfaceList.Add(I);
+  Result := TTestLocationInfo(FItems.Last);
+end;
+
+constructor TTestLocationInfoList.Create;
+begin
+  inherited Create;
+  FItems := TObjectList.Create(False);
+  FInterfaceList := TInterfaceList.Create;
+end;
+
+destructor TTestLocationInfoList.Destroy;
+begin
+  FInterfaceList.Free;
+  FItems.Free;
+  inherited Destroy;
+end;
+
+function TTestLocationInfoList.GetCount: Integer;
+begin
+  Result := FItems.Count;
+end;
+
+function TTestLocationInfoList.GetLocationItems(AIndex: Integer): IJclLocationInfo;
+begin
+  if not FItems[AIndex].GetInterface(IJclLocationInfo, Result) then
+    Result := nil;
+end;
+
+function TTestLocationInfoList.GetPrepared: Boolean;
+begin
+  Result := False;
+end;
+
+procedure TTestLocationInfoList.SetPrepared(AValue: Boolean);
+begin
+//
+end;
+
+{ TTestLocationInfo }
+
+destructor TTestLocationInfo.Destroy;
+begin
+  inherited Destroy;
+end;
+
+function TTestLocationInfo.GetAddress: Pointer;
+begin
+  Result := nil;
+end;
+
+function TTestLocationInfo.GetBinaryFileName: string;
+begin
+  Result := '';
+end;
+
+function TTestLocationInfo.GetLineNumber: Integer;
+begin
+  Result := 0;
+end;
+
+function TTestLocationInfo.GetLineNumberOffsetFromProcedureStart: Integer;
+begin
+  Result := 0;
+end;
+
+function TTestLocationInfo.GetModuleName: string;
+begin
+  Result := '';
+end;
+
+function TTestLocationInfo.GetOffsetFromLineNumber: Integer;
+begin
+  Result := 0;
+end;
+
+function TTestLocationInfo.GetOffsetFromProcName: Integer;
+begin
+  Result := 0;
+end;
+
+function TTestLocationInfo.GetProcedureName: string;
+begin
+  Result := '';
+end;
+
+function TTestLocationInfo.GetSourceName: string;
+begin
+  Result := FSourceName;
+end;
+
+function TTestLocationInfo.GetSourceUnitName: string;
+begin
+  Result := '';
+end;
+
+function TTestLocationInfo.GetUnitVersionDateTime: TDateTime;
+begin
+  Result := 0;
+end;
+
+function TTestLocationInfo.GetUnitVersionExtra: string;
+begin
+  Result := '';
+end;
+
+function TTestLocationInfo.GetUnitVersionLogPath: string;
+begin
+  Result := '';
+end;
+
+function TTestLocationInfo.GetUnitVersionRCSfile: string;
+begin
+  Result := '';
+end;
+
+function TTestLocationInfo.GetUnitVersionRevision: string;
+begin
+  Result := '';
+end;
+
+function TTestLocationInfo.GetVAddress: Pointer;
+begin
+  Result := nil;
+end;
+
+function TTestLocationInfo.GetValues: Integer;
+begin
+  Result := 0;
+end;
+
+function TTestLocationInfo.GetFileName: string;
+begin
+  Result := '';
+end;
+
+function TTestLocationInfo.GetFoundFile: Boolean;
+begin
+  Result := False;
+end;
+
+function TTestLocationInfo.GetProjectName: string;
+begin
+  Result := '';
+end;
+
+function TTestLocationInfo.GetRevision: string;
+begin
+  Result := '';
+end;
+
+function TTestLocationInfo.GetTranslatedLineNumber: Integer;
+begin
+  Result := 0;
+end;
+
+procedure TTestLocationInfo.SetFileName(AValue: string);
+begin
+//
+end;
+
+procedure TTestLocationInfo.SetFoundFile(AValue: Boolean);
+begin
+//
+end;
+
+procedure TTestLocationInfo.SetProjectName(AValue: string);
+begin
+//
+end;
+
+procedure TTestLocationInfo.SetRevision(AValue: string);
+begin
+//
+end;
+
+procedure TTestLocationInfo.SetTranslatedLineNumber(AValue: Integer);
+begin
+//
+end;
+
+initialization
+
+finalization
+  if Assigned(StackTraceViewerStackServices) then
+  begin
+    StackTraceViewerStackServices.UnregisterFrameClass(TfrmHelloWorld);
+    StackTraceViewerStackServices.ShowTree(nil);
+  end;
+
+end.


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.




2006	Jan	Feb	Mar	Apr (20)	May (48)	Jun (8)	Jul (23)	Aug (41)	Sep (42)	Oct (22)	Nov (17)	Dec (36)
2007	Jan (43)	Feb (42)	Mar (17)	Apr (39)	May (16)	Jun (35)	Jul (37)	Aug (47)	Sep (49)	Oct (9)	Nov (52)	Dec (37)
2008	Jan (48)	Feb (21)	Mar (7)	Apr (2)	May (5)	Jun (17)	Jul (17)	Aug (40)	Sep (58)	Oct (38)	Nov (19)	Dec (32)
2009	Jan (67)	Feb (46)	Mar (54)	Apr (34)	May (37)	Jun (52)	Jul (67)	Aug (72)	Sep (48)	Oct (35)	Nov (27)	Dec (12)
2010	Jan (56)	Feb (46)	Mar (19)	Apr (14)	May (21)	Jun (3)	Jul (13)	Aug (48)	Sep (34)	Oct (51)	Nov (16)	Dec (32)
2011	Jan (36)	Feb (14)	Mar (12)	Apr (3)	May (5)	Jun (24)	Jul (15)	Aug (30)	Sep (21)	Oct (4)	Nov (25)	Dec (23)
2012	Jan (45)	Feb (42)	Mar (19)	Apr (14)	May (13)	Jun (7)	Jul (3)	Aug (46)	Sep (21)	Oct (10)	Nov (2)	Dec
2013	Jan (5)	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec

jcl-checkins-diff Mailing List for JEDI Code Library (Page 46)

jcl-checkins-diff — SVN file check-in notifications with file differences included