Doug, Thanks for the explanation. I think i understand a bit better. If not too much trouble or too nosy are you using this for pic microprocessors type of app simulator?
Cheers, Charlie ----- Original Message ----- From: Doug Hale To: [email protected] Sent: Thursday, January 15, 2009 7:00 PM Subject: Re: [delphi-en] Problem with ShellExecute Charlie, > Sounds like that your getting RTTI from the DLL to build the components, if i'm understanding. > I don't use RTTI. The Abstract Class defines a set of Class Functions that each Class implements. This allows you to find out what class it is and not use RTTI. Here is the Abstract Class: {Copyright 2003 Doug Hale} {Copyright This is an unpublished work of Doug Hale} unit Model; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TRunSimCmnd = (rscStart, rscStop, rscStep, rscSlowStart, rscSlowStop, rscShow, rscHide); TRunSim = Procedure(Cmnd : TRunSimCmnd) of object; TSimModel = class(TForm) private public RunSim : TRunSim; class function GetStatus : String; virtual; abstract; class function GetLibraryName : String; virtual; abstract; class function GetAttributeNames : String; virtual; abstract; function GetInstance : String; virtual; abstract; function GetPin(Ndx : Integer) : Byte ; virtual; abstract; function GetPinCount : Integer; virtual; abstract; function GetPinName(Ndx : Integer) : String;virtual; abstract; function GetPinNumber(Name : String) : Integer; virtual; abstract; function Run(TimeStep : Word; AccumulatedTime : LongWord) : Boolean; virtual; abstract; procedure PutInstance(Name : String); virtual; abstract; procedure PutPin(Ndx : Integer; Value : Byte); virtual; abstract; Property InstanceName : String read GetInstance write PutInstance; Property Pin[Ndx : Integer] : Byte read GetPin write PutPin; Property PinCount : Integer read GetPinCount; Property PinName[Ndx : Integer] : String read GetPinName; Property PinNumber[Name : String] : Integer read GetPinNumber; function GetPinLoc(Ndx : Integer) : TPoint; virtual; abstract; function GetShapeSize : TPoint; virtual; abstract; Property PinLoc[Ndx : Integer] : TPoint read GetPinLoc; Property ShapeSize : TPoint read GetShapeSize; function GetDevicePinNumber(Ndx : Integer) : Integer; virtual; abstract; Property DevicePinNumber[Ndx : Integer] : Integer read GetDevicePinNumber; end; CSimModel = Class of TSimModel; function CalcPin(Pin, Width : Integer; IsLeft : Boolean) : TPoint; function CalcBox(Left, Right, Width : Integer) : Tpoint; function MakePoint(X, Y : Integer) : Tpoint; implementation uses Math; function MakePoint(X, Y : Integer) : Tpoint; var P : TPoint; begin P.x := X; P.y := Y; result := P; end; function CalcPin(Pin, Width : Integer; IsLeft : Boolean) : Tpoint; var P : TPoint; begin if IsLeft then P.x := 0 else P.x := Width-1; P.y := (Pin + 2) * 10; result := P; end; function CalcBox(Left, Right, Width : Integer) : Tpoint; var P : TPoint; begin P.x := Width; P.y := (Max(Left, Right) + 3) * 10; result := P; end; end. And here is a simple simulator component: {Copyright 2003 Doug Hale} {Copyright This is an unpublished work of Doug Hale} library s74244; uses ShareMem, SysUtils, Classes, Windows, Messages, Graphics, Controls, Forms, Dialogs, U74244 in 'U74244.pas' {Generic}, Model in 'Model.pas'; {$E .mdl} function GetSimClass : CSimModel; export; stdcall; begin result := TMC74245; end; exports GetSimClass; begin end. {Copyright 2003 Doug Hale} {Copyright This is an unpublished work of Doug Hale} unit U74244; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Model; const PartName = '74244'; AttribList = 'Name'; PinCount = 20; BoxWidth = 60; PinList = '#1OE,1D0,2O0,1D1,2O1,1D2,2O2,1D3,2O3,GND,2D3,1O3,2D2,1O2,2D1,1O1,2D0,1O0,#2OE,VCC'; PinNums : Array[0..PinCount-1] of Integer = (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20); PinPos : Array[0..PinCount-1] of Record Pos : Integer; OnLeft : Boolean; end = ((Pos:0;OnLeft:True) ,(Pos:1;OnLeft:True) ,(Pos:2;OnLeft:True) ,(Pos:3;OnLeft:True) ,(Pos:4;OnLeft:True) ,(Pos:5;OnLeft:True) ,(Pos:6;OnLeft:True) ,(Pos:7;OnLeft:True) ,(Pos:8;OnLeft:True) ,(Pos:9;OnLeft:True) ,(Pos:9;OnLeft:False) ,(Pos:8;OnLeft:False) ,(Pos:7;OnLeft:False) ,(Pos:6;OnLeft:False) ,(Pos:5;OnLeft:False) ,(Pos:4;OnLeft:False) ,(Pos:3;OnLeft:False) ,(Pos:2;OnLeft:False) ,(Pos:1;OnLeft:False) ,(Pos:0;OnLeft:False) ); const AV : Array[False..True] of Array[False..True] of Byte = ((0,6), (3,3)); type TMC74245 = class(TsimModel) procedure FormShortCut(var Msg: TWMKey; var Handled: Boolean); private _InstanceName : String; I1, I2, O1, O2 : Array[0..3] of Boolean; NE1, NE2 : Boolean; PinNames : TStringList; public function Run(TimeStep : Word; AccumulatedTime : LongWord) : Boolean; override; function GetInstance : String; override; function GetPin(Ndx : Integer) : Byte ; override; function GetPinCount : Integer; override; function GetPinName(Ndx : Integer) : String;override; function GetPinNumber(Name : String) : Integer; override; procedure PutInstance(Name : String); override; procedure PutPin(Ndx : Integer; Value : Byte); override; Property InstanceName : String read GetInstance write PutInstance; class function GetStatus : String; Override; class function GetAttributeNames : String; Override; class function GetLibraryName : String; Override; Property PinCount : Integer read GetPinCount; Property PinName[Ndx : Integer] : String read GetPinName; Property PinNumber[Name : STring] : Integer read GetPinNumber; Property Pin[Ndx : Integer] : Byte read GetPin write PutPin; function GetPinLoc(Ndx : Integer) : TPoint; Override; function GetShapeSize : TPoint; Override; Property PinLoc[Ndx : Integer] : TPoint read GetPinLoc; Property ShapeSize : TPoint read GetShapeSize; function GetDevicePinNumber(Ndx : Integer) : Integer; override; Property DevicePinNumber[Ndx : Integer] : Integer read GetDevicePinNumber; end; implementation {$R *.DFM} var PinNames : TStringList; function TMC74245.GetDevicePinNumber(Ndx : Integer) : Integer; begin if (Ndx < 0) or (Ndx > PinCount-1) then result := -1 else result := PinNums[Ndx]; end; function TMC74245.GetPinLoc(Ndx : Integer) : TPoint; begin if (Ndx < 0) or (Ndx > PinCount-1) then result := MakePoint(0, 0) else result := CalcPin(PinPos[Ndx].Pos, BoxWidth, PinPos[Ndx].OnLeft); end; function TMC74245.GetShapeSize : TPoint; var i, L, R : Integer; begin L := 0; R := 0; for i := 0 to PinCount-1 do begin if PinPos[i].OnLeft then begin if PinPos[i].Pos+1 > L then L := PinPos[i].Pos+1; end else begin if PinPos[i].Pos+1 > R then R := PinPos[i].Pos+1; end; end; result := CalcBox(L, R, BoxWidth); end; function TMC74245.GetInstance : String; begin result := _InstanceName; end; function TMC74245.GetPinCount : Integer; begin result := PinNames.Count; end; function TMC74245.GetPinName(Ndx : Integer) : String; begin if Ndx < 0 then result := '' else if Ndx < PinNames.Count then result := PinNames[Ndx] else result := ''; end; function TMC74245.GetPinNumber(Name : String) : Integer; begin result := PinNames.IndexOf(Name); end; class function TMC74245.GetStatus : String; begin result := 'Functional'; end; class function TMC74245.GetAttributeNames : String; begin result := AttribList; end; class function TMC74245.GetLibraryName : String; begin result := PartName; end; // 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 //#1OE,1D0,2O0,1D1,2O1,1D2,2O2,1D3,2O3,GND,2D3,1O3,2D2,1O2,2D1,1O1,2D0,1O0,#2OE,VCC function TMC74245.Run(TimeStep : Word; AccumulatedTime : LongWord) : Boolean; var i : Integer; begin for i := 0 to 3 do begin O1[i] := I1[i]; O2[i] := I2[i]; end; result := False; end; function TMC74245.GetPin(Ndx : Integer) : Byte ; begin case Ndx of 2: result := AV[NE2, O2[0]]; 4: result := AV[NE2, O2[1]]; 6: result := AV[NE2, O2[2]]; 8: result := AV[NE2, O2[3]]; 17: result := AV[NE1, O1[0]]; 15: result := AV[NE1, O1[1]]; 13: result := AV[NE1, O1[2]]; 11: result := AV[NE1, O1[3]]; 0, 1, 3, 5, 7, 9, 10, 12, 14, 16, 18, 19: result := 3; else result := 7; end; end; procedure TMC74245.PutPin(Ndx : Integer; Value : Byte); begin case Ndx of 0: NE1 := Value > 3; 1: I1[0] := Value > 3; 3: I1[1] := Value > 3; 5: I1[2] := Value > 3; 6: I1[3] := Value > 3; 10: I2[3] := Value > 3; 12: I2[2] := Value > 3; 14: I2[1] := Value > 3; 16: I2[0] := Value > 3; 18: NE2 := Value > 3; else; end; end; procedure TMC74245.FormShortCut(var Msg: TWMKey; var Handled: Boolean); begin case Msg.CharCode of 112: // F1 begin end; 113: // F2 begin Handled := True; end; 114: // F3 begin Handled := True; end; 115: // F4 begin Handled := True; end; 116: // F5 begin Handled := True; end; 117: // F6 begin Handled := True; end; 118: // F7 handled by MainForm begin Handled := False; end; 119: // F8 handled by MainForm begin Handled := False; end; 120: // F9 handled by MainForm begin Handled := False; end; 121: // F10 begin Handled := True; end; 122: // F11 begin Handled := True; end; 123: // F12 begin TForm(Owner).SHow; Handled := True; end; 27: // ESC begin Close; Handled := True; end; else begin Handled := False; end; end; end; procedure TMC74245.PutInstance(Name : String); var P : Integer; i : Integer; L : TStringList; begin if _InstanceName <> '' then Exit; L := TStringList.Create; _InstanceName := Name; L.CommaText := Name; P := Pos(' -', Caption); if P <> 0 then Caption := Copy(Caption, 1, P-1); L.CommaText := Name; for i := 0 to L.Count-1 do begin case i of 0: begin Caption := Caption+' - '+L[i]; end; else; end; end; PinNames := TStringList.Create; PinNames.CommaText := PinList; Visible := False; L.Free; end; var PosPin : Integer; procedure B(N : String; OnLeft : Boolean); var i : Integer; begin i := PinNames.IndexOf(N); PinPos[i].Pos := PosPin; PinPos[i].OnLeft := OnLeft; end; procedure A(L, R : String); begin if L <> '' then B(L, True); if R <> '' then B(R, False); Inc(PosPin); end; begin PosPin := 0; PinNames := TStringList.Create; PinNames.CommaText := PinList; A('', 'VCC'); A('', ''); A('1D3', '1O3'); A('1D2', '1O2'); A('1D1', '1O1'); A('1D0', '1O0'); A('#1OE', ''); A('', ''); A('2D3', '2O3'); A('2D2', '2O2'); A('2D1', '2O1'); A('2D0', '2O0'); A('#2OE', ''); A('', 'GND'); end. Doug ---------- ---------- No virus found in this outgoing message. Checked by AVG - http://www.avg.com Version: 8.0.176 / Virus Database: 270.10.7/1895 - Release Date: 1/15/2009 7:46 AM [Non-text portions of this message have been removed] [Non-text portions of this message have been removed]
