Entwickler-Ecke

Sonstiges (Delphi) - Typbibilothek importieren...D7 und D2006??


winx - Fr 06.10.06 11:45
Titel: Typbibilothek importieren...D7 und D2006??
Hallo,

ich habe ein Problem nach dem Importieren einer Typbibiothek in D2006. Verschiedene Funktionen gehen irgendwie verloren. Ich
habe es getestet, indem ich in D7 und D2006, ein und diesselbe Typbibliothek importiert habe.

Diese sieht in D7 folgendermaßen aus


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
 
unit Mark_TLB;

// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a       
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the   
// 'Refresh' command of the Type Library Editor activated while editing the   
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                         
// ************************************************************************ //

// PASTLWTR : 1.2
// File generated on 06.10.2006 12:34:43 from Type Library described below.

// ************************************************************************  //
// Type Lib: N:\develop\Mark V 2.00 Beta 5\Compiled\Mark.exe (1)
// LIBID: {31B21198-0674-4E92-A530-30733A0FF68F}
// LCID: 0
// Helpfile: 
// HelpString: Mark Bibliothek
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\system32\STDOLE2.TLB)
// ************************************************************************ //
// *************************************************************************//
// NOTE:                                                                      
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties  
// which return objects that may need to be explicitly created via a function 
// call prior to any access via the property. These items have been disabled  
// in order to prevent accidental use from within the object inspector. You   
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively   
// removing them from the $IFDEF blocks. However, such items must still be    
// programmatically created via a method of the appropriate CoClass before    
// they can be used.                                                          
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, OleServer, StdVCL, Variants;
  

// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  MarkMajorVersion = 1;
  MarkMinorVersion = 0;

  LIBID_Mark: TGUID = '{31B21198-0674-4E92-A530-30733A0FF68F}';

  IID_IRemoteInterface: TGUID = '{0F24B5BF-F5B6-4F0D-9E0D-0FAB63EE4D88}';
  DIID_IRemoteInterfaceEvents: TGUID = '{7B013F03-6B4C-48B4-8B1B-D20EDCCE5298}';
  CLASS_RemoteInterface: TGUID = '{77CB394B-79AC-43A6-B492-4BA10126E3ED}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IRemoteInterface = interface;
  IRemoteInterfaceDisp = dispinterface;
  IRemoteInterfaceEvents = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  RemoteInterface = IRemoteInterface;


// *********************************************************************//
// Interface: IRemoteInterface
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0F24B5BF-F5B6-4F0D-9E0D-0FAB63EE4D88}
// *********************************************************************//
  IRemoteInterface = interface(IDispatch)
    ['{0F24B5BF-F5B6-4F0D-9E0D-0FAB63EE4D88}']
    function DoCommand(Cmd: Integer; Params: OleVariant; var Data: OleVariant): Integer; safecall;
  end;

// *********************************************************************//
// DispIntf:  IRemoteInterfaceDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0F24B5BF-F5B6-4F0D-9E0D-0FAB63EE4D88}
// *********************************************************************//
  IRemoteInterfaceDisp = dispinterface
    ['{0F24B5BF-F5B6-4F0D-9E0D-0FAB63EE4D88}']
    function DoCommand(Cmd: Integer; Params: OleVariant; var Data: OleVariant): Integer; dispid 201;
  end;

// *********************************************************************//
// DispIntf:  IRemoteInterfaceEvents
// Flags:     (4096) Dispatchable
// GUID:      {7B013F03-6B4C-48B4-8B1B-D20EDCCE5298}
// *********************************************************************//
  IRemoteInterfaceEvents = dispinterface
    ['{7B013F03-6B4C-48B4-8B1B-D20EDCCE5298}']
    procedure OnMessage(const MessageText: WideString); dispid 201;
  end;

// *********************************************************************//
// The Class CoRemoteInterface provides a Create and CreateRemote method to          
// create instances of the default interface IRemoteInterface exposed by              
// the CoClass RemoteInterface. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoRemoteInterface = class
    class function Create: IRemoteInterface;
    class function CreateRemote(const MachineName: string): IRemoteInterface;
  end;

  TRemoteInterfaceOnMessage = procedure(ASender: TObject; const MessageText: WideString) of object;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TRemoteInterface
// Help String      : RemoteInterface Objekt
// Default Interface: IRemoteInterface
// Def. Intf. DISP? : No
// Event   Interface: IRemoteInterfaceEvents
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TRemoteInterfaceProperties= class;
{$ENDIF}
  TRemoteInterface = class(TOleServer)
  private
    FOnMessage: TRemoteInterfaceOnMessage;
    FIntf:        IRemoteInterface;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TRemoteInterfaceProperties;
    function      GetServerProperties: TRemoteInterfaceProperties;
{$ENDIF}
    function      GetDefaultInterface: IRemoteInterface;
  protected
    procedure InitServerData; override;
    procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: IRemoteInterface);
    procedure Disconnect; override;
    function DoCommand(Cmd: Integer; Params: OleVariant; var Data: OleVariant): Integer;
    property DefaultInterface: IRemoteInterface read GetDefaultInterface;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TRemoteInterfaceProperties read GetServerProperties;
{$ENDIF}
    property OnMessage: TRemoteInterfaceOnMessage read FOnMessage write FOnMessage;
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TRemoteInterface
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TRemoteInterfaceProperties = class(TPersistent)
  private
    FServer:    TRemoteInterface;
    function    GetDefaultInterface: IRemoteInterface;
    constructor Create(AServer: TRemoteInterface);
  protected
  public
    property DefaultInterface: IRemoteInterface read GetDefaultInterface;
  published
  end;
{$ENDIF}


procedure Register;

resourcestring
  dtlServerPage = 'Additional';

  dtlOcxPage = 'Additional';

implementation

uses ComObj;

class function CoRemoteInterface.Create: IRemoteInterface;
begin
  Result := CreateComObject(CLASS_RemoteInterface) as IRemoteInterface;
end;

class function CoRemoteInterface.CreateRemote(const MachineName: string): IRemoteInterface;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_RemoteInterface) as IRemoteInterface;
end;

procedure TRemoteInterface.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{77CB394B-79AC-43A6-B492-4BA10126E3ED}';
    IntfIID:   '{0F24B5BF-F5B6-4F0D-9E0D-0FAB63EE4D88}';
    EventIID:  '{7B013F03-6B4C-48B4-8B1B-D20EDCCE5298}';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TRemoteInterface.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    ConnectEvents(punk);
    Fintf:= punk as IRemoteInterface;
  end;
end;

procedure TRemoteInterface.ConnectTo(svrIntf: IRemoteInterface);
begin
  Disconnect;
  FIntf := svrIntf;
  ConnectEvents(FIntf);
end;

procedure TRemoteInterface.DisConnect;
begin
  if Fintf <> nil then
  begin
    DisconnectEvents(FIntf);
    FIntf := nil;
  end;
end;

function TRemoteInterface.GetDefaultInterface: IRemoteInterface;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TRemoteInterface.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TRemoteInterfaceProperties.Create(Self);
{$ENDIF}
end;

destructor TRemoteInterface.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TRemoteInterface.GetServerProperties: TRemoteInterfaceProperties;
begin
  Result := FProps;
end;
{$ENDIF}

procedure TRemoteInterface.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
begin
  case DispID of
    -1: Exit;  // DISPID_UNKNOWN
    201: if Assigned(FOnMessage) then
         FOnMessage(Self, Params[0] {const WideString});
  end; {case DispID}
end;

function TRemoteInterface.DoCommand(Cmd: Integer; Params: OleVariant; var Data: OleVariant): Integer;
begin
  Result := DefaultInterface.DoCommand(Cmd, Params, Data);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TRemoteInterfaceProperties.Create(AServer: TRemoteInterface);
begin
  inherited Create;
  FServer := AServer;
end;

function TRemoteInterfaceProperties.GetDefaultInterface: IRemoteInterface;
begin
  Result := FServer.DefaultInterface;
end;

{$ENDIF}

procedure Register;
begin
  RegisterComponents(dtlServerPage, [TRemoteInterface]);
end;

end.


In Delphi 2006, sieht sie dagegen nur so aus:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
 
unit Mark_TLB;

// ************************************************************************ //
// WARNUNG                                                                    
// -------                                                                    
// Die in dieser Datei deklarierten Typen wurden aus Daten einer Typbibliothek
// generiert. Wenn diese Typbibliothek explizit oder indirekt (ueber eine     
// andere Typbibliothek) reimportiert wird oder wenn der Befehl            
// 'Aktualisieren' im Typbibliotheks-Editor waehrend des Bearbeitens der     
// Typbibliothek aktiviert ist, wird der Inhalt dieser Datei neu generiert und 
// alle manuell vorgenommenen Aenderungen gehen verloren.                                        
// ************************************************************************ //

// PASTLWTR : 1.2
// Datei generiert am 06.10.2006 12:31:24 aus der unten beschriebenen Typbibliothek.

// ************************************************************************  //
// Typbib: N:\develop\Mark V 2.00 Beta 5\Compiled\Mark.exe (1)
// LIBID: {31B21198-0674-4E92-A530-30733A0FF68F}
// LCID: 0
// Hilfedatei: 
// Hilfe-String: Mark Bibliothek
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\system32\STDOLE2.TLB)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit muss ohne Typueberpruefung fuer Zeiger compiliert werden. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, OleServer, StdVCL, Variants;
  

// *********************************************************************//
// In dieser Typbibliothek deklarierte GUIDS . Es werden folgende        
// Praefixe verwendet:                                                     
//   Typbibliotheken     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Nicht-DISP-Interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // Haupt- und Nebenversionen der Typbibliothek
  MarkMajorVersion = 1;
  MarkMinorVersion = 0;

  LIBID_Mark: TGUID = '{31B21198-0674-4E92-A530-30733A0FF68F}';

  IID_IRemoteInterface: TGUID = '{0F24B5BF-F5B6-4F0D-9E0D-0FAB63EE4D88}';
  DIID_IRemoteInterfaceEvents: TGUID = '{7B013F03-6B4C-48B4-8B1B-D20EDCCE5298}';
  CLASS_RemoteInterface: TGUID = '{77CB394B-79AC-43A6-B492-4BA10126E3ED}';
type

// *********************************************************************//
// Forward-Deklaration von in der Typbibliothek definierten Typen                    
// *********************************************************************//
  IRemoteInterface = interface;
  IRemoteInterfaceDisp = dispinterface;
  IRemoteInterfaceEvents = dispinterface;

// *********************************************************************//
// Deklaration von in der Typbibliothek definierten CoClasses             
// (HINWEIS: Hier wird jede CoClass ihrem Standard-Interface zugewiesen)              
// *********************************************************************//
  RemoteInterface = IRemoteInterface;


// *********************************************************************//
// Interface: IRemoteInterface
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0F24B5BF-F5B6-4F0D-9E0D-0FAB63EE4D88}
// *********************************************************************//
  IRemoteInterface = interface(IDispatch)
    ['{0F24B5BF-F5B6-4F0D-9E0D-0FAB63EE4D88}']
    function DoCommand(Cmd: Integer; Params: OleVariant; var Data: OleVariant): Integer; safecall;
  end;

// *********************************************************************//
// DispIntf:  IRemoteInterfaceDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0F24B5BF-F5B6-4F0D-9E0D-0FAB63EE4D88}
// *********************************************************************//
  IRemoteInterfaceDisp = dispinterface
    ['{0F24B5BF-F5B6-4F0D-9E0D-0FAB63EE4D88}']
    function DoCommand(Cmd: Integer; Params: OleVariant; var Data: OleVariant): Integer; dispid 201;
  end;

// *********************************************************************//
// DispIntf:  IRemoteInterfaceEvents
// Flags:     (4096) Dispatchable
// GUID:      {7B013F03-6B4C-48B4-8B1B-D20EDCCE5298}
// *********************************************************************//
  IRemoteInterfaceEvents = dispinterface
    ['{7B013F03-6B4C-48B4-8B1B-D20EDCCE5298}']
    procedure OnMessage(const MessageText: WideString); dispid 201;
  end;

// *********************************************************************//
// Die Klasse CoRemoteInterface stellt die Methoden Create und CreateRemote zur      
// Verfuegung, um Instanzen des Standard-Interface IRemoteInterface, dargestellt 
// von CoClass RemoteInterface, zu erzeugen. Diese Funktionen koennen                     
// von einem Client verwendet werden, der die CoClasses automatisieren    
// will, die von dieser Typbibliothek dargestellt werden.                                            
// *********************************************************************//
  CoRemoteInterface = class
    class function Create: IRemoteInterface;
    class function CreateRemote(const MachineName: string): IRemoteInterface;
  end;

implementation

uses ComObj;

class function CoRemoteInterface.Create: IRemoteInterface;
begin
  Result := CreateComObject(CLASS_RemoteInterface) as IRemoteInterface;
end;

class function CoRemoteInterface.CreateRemote(const MachineName: string): IRemoteInterface;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_RemoteInterface) as IRemoteInterface;
end;

end.


Ich benötige die TRemoteInterface.Connect Funktion, die jetzt allerdings nicht mehr vorhanden ist...kann ich diese
irgendwie ersetzen, oder wo liegt mein Fehler???

Danke für alle hilfreichen Tipps!!!

gruß,
winx

p.s: das problem ist auch hier [http://www.delphipraxis.net/post621791.html#621791] gepostet


jaenicke - Fr 06.10.06 12:27
Also normalerweise sollte die importierte Bibliothek von D7 doch auch für D2006 gehen. Du darfst nur keine Aktualisierung machen. Sonst überschreibt D2006 ja die Unit.

Was ich als Grund vermute:
D7 schreibt ja als Hinweis hin dass da Eigenschaften dabei sind die im OI nicht angezeigt werden sollten. Wegen möglicher Fehler. Ich vermute dass D2006 solche Klassen einfach vollkommen weglässt. Ich nehme allerdings an dass man das in D2006 irgendwie auch umschalten kann...


winx - Fr 06.10.06 12:37
Danke...

Kann ich solch eine Typbibilothek, dann auch direkt als Komponente in D2006 aufs Formual ziehen und im OI bearbeiten???
Wie geht das in D2006.Net und D2006 Win32???

Aber wo man das einschalten kann, weisst du auch nich, oder?


jaenicke - Fr 06.10.06 13:00
Na ja du musst halt dafür ein Package erstellen. In D2006 .NET musst du außerdem evtl. ein paar Änderungen vornehmen z.B. wegen der benutzten Units. Das sieht ja bei .NET normalerweise etwas anders aus von wegen System.xyz und so. Allerdings werden diese Standard-Units normalerweise auch so gefunden. Viel hab ich mit .NET aber noch nicht gemacht deshalb weiß ich nicht so genau wie das genau ist und obs da noch andere Probleme gibt. (Bei mir ging es einfach so.)

Jedenfalls egal ob .NET oder Win32:
Neues Package erstellen (eben .NET oder Win32) und dann die TLB-Unit hinzufügen. Kompilieren... Installieren... Fertig...
(Hoffentlich :wink: )

Tja wie man das einschalten kann keine Ahnung. Was ist das denn überhaupt für eine TLB? Ich meine wenn die frei verfügbar ist könnte ichs ja selber mal testen...


winx - Di 10.10.06 08:12
Na das werd ich doch gleich mal probieren und meine Erfahrungen hier posten...


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!