Announcement

**Andreas Kosch** · 16.02.2004, 14:30

Hallo,
 
COM unterst�tzt 3 verschiedene Arten der Bindung:
 
1. Sp�te Bindung (das aufrufende Programm "fragt" �ber IDispatch.GetIDsOfNames beim aufgerufenen Objekt nach, welcher Token-Wert (DispID) f�r einen Eigenschafts- oder Methodensnamen g�ltig ist. Liegt der numerische Wert des Tokens vor, kann das Programm die gew�nschte Eigenschaft oder Funktion �ber den Aufruf von IDispatch.Invoke ansprechen)
 
2. Fr�he Bindung (das aufrufende Programm greift direkt �ber eine Offset-Adresse auf die Methode zu).
 
3. DispID-Bindung (eine Abk�rzung der sp�ten Bindung, bei der sofort die IDispatch-Methode Invoke �ber eine feststehende DispID aufgerufen wird).
 
Die Fehlermeldung deutet darauf hin, dass der direkte DispID-Aufruf nicht korrekt ist. Wie sieht der konkrete Aufruf im Detail aus? Was zeigt die importierte Typbibliothek an dieser Stelle an (siehe nachfolgendes Beispiel)?
<pre>
_ApplicationDisp = dispinterface
['{00020970-0000-0000-C000-000000000046}']
property Application: Application readonly dispid 1000;
property Creator: Integer readonly dispid 1001;
property Parent: IDispatch readonly dispid 1002;
property Name: WideString readonly dispid 0;
property Documents: Documents readonly dispid 6;
...
</pre&gt

**Yaser Isa** · 17.02.2004, 07:44

Hallo Herr Kosch. 
Vielen Dank f�r Ihre Antwort. Die Typbibliothek sieht folgenderma�en aus (kleiner Auszug): 
// ************************************************** *******************// 
// Forward-Deklaration von in der Typbibliothek definierten Typen 
// ************************************************** *******************// 
IOrderRequest = interface; 
IOrderRequestDisp = dispinterface; 

// ************************************************** *******************// 
// Deklaration von in der Typbibliothek definierten CoClasses 
************************************************** *******************// 
SilentCommerce = IUnknown; 
// ************************************************** *******************// 
// Deklaration von Strukturen, Unions und Aliasen. 
// ************************************************** *******************//
TUserData_SC = packed record 
sSalesOrgId: WideString; 
sUserId: WideString; 
sPassword: WideString; 
sLanguage: WideString; 
end; 

TOrderHeaderInfo_SC = packed record 
sSupplierNumber: WideString; 
sPurchaseNumber: WideString; 
sCurrency: WideString; 
nCompleteDelivery: Integer; 
sDispatchMode: WideString; 
sDeliveryDate: WideString; 
sInquiryNumber: WideString; 
end; 
TOrder_SC = packed record 
eOrderType: __MIDL___MIDL_itf_SilentCommerce_0000_0001; 
xHeaderInfo: TOrderHeaderInfo_SC; 
nShipToExists: Integer; 
xShipTo: TCustomer_SC; 
nBillToExists: Integer; 
xBillTo: TCustomer_SC; 
nNumberOfItems: Integer; 
xOrderItems: PSafeArray; 
end; 

TMaterial_SC = packed record 
sNumberSystem: WideString; 
sMaterial: WideString; 
sEan: WideString; 
end; 

TOrderItem_SC = packed record 
nPositionItem: Integer; 
xMaterial: TMaterial_SC; 
sShortText: WideString; 
nRequestedQuantity: Integer; 
sQuantityUnit: WideString; 
nPartialDelivery: Integer; 
nAlternativeMaterialAllowed: Integer; 
nBackOrderAllowed: Integer; 
sDeliveryDate: WideString; 
end; 

TROrder_SC = packed record 
sDocumentNumber: WideString; 
sTeccomDocumentId: WideString; 
nNumberOfHeaderResponses: Integer; 
xHeaderResponses: PSafeArray; 
nNumberOfROrderItems: Integer; 
xROrderItems: PSafeArray; 
end; 

TResponse_SC = packed record 
nResponseClass: Integer; 
nResponseType: Integer; 
nResponseNumber: Integer; 
sResponseText: WideString; 
sResponseParameter: WideString; 
end; 
// ************************************************** *******************// 
// Schnittstelle: IOrderRequest 
// Flags: (4416) Dual OleAutomation Dispatchable 
// GUID: {60F59E8A-2151-4F1C-B40E-3DDF01B8AF97} 
// ************************************************** *******************// 
IOrderRequest = interface(IDispatch) 
['{60F59E8A-2151-4F1C-B40E-3DDF01B8AF97}'] 
procedure SendOrder(var xUserData: TUserData_SC; var xOrder: TOrder_SC;
var xOrderResponse: TROrder_SC; var sLoggingInfo: WideString); safecall; 
end; 

// ************************************************** *******************// 
// DispIntf: IOrderRequestDisp 
// Flags: (4416) Dual OleAutomation Dispatchable 
// GUID: {60F59E8A-2151-4F1C-B40E-3DDF01B8AF97} 
// ************************************************** *******************// 
IOrderRequestDisp = dispinterface 
['{60F59E8A-2151-4F1C-B40E-3DDF01B8AF97}'] 
procedure SendOrder(var xUserData: {??TUserData_SC}OleVariant;
var xOrder: {??TOrder_SC}OleVariant;
var xOrderResponse: {??TROrder_SC}OleVariant; var sLoggingInfo: WideString); dispid 1; 
end; 
1. Versuch SenderOrder auszuf�hren mit dem Ergebnis "Falscher Parameter" 
var 
FOrderRequest: IOrderRequest 
xUserData: TUserData_SC 
xOrder: TOrder_SC 
xHeaderInfo: TOrderHeaderInfo_SC 
xOrderItems: TOrderItem_SC 
xMaterial: TMaterial_SC 
xOrderResponse: TROrder_SC 
sLoggingInfo: WideString 
aOrderItem_SC: Array[0..1] of TOrderItem_SC 
vOrderItem_SC: Variant 
vRecordInfo: IRecordInfo 
pOrderItem_SC: Pointer 
psOrderItem_SC: PSafeArray 
begin 
FOrderRequest := CreateOleObject('SilentCommerce.OrderRequest') as IOrderRequest 
xUserData.sSalesOrgId := '' 
xUserData.sUserId := '' 
xUserData.sPassword := '' 
xUserData.sLanguage := 'DE' <VR>
xHeaderInfo.sSupplierNumber := '4711' 
xHeaderInfo.sPurchaseNumber := '4711' 
xHeaderInfo.sCurrency := 'EUR' 
xHeaderInfo.nCompleteDelivery := 1 
xMaterial.sMaterial := 'Artikel1' 
aOrderItem_SC[0].nPositionItem := 1 
aOrderItem_SC[0].xMaterial := xMaterial 
xMaterial.sMaterial := 'Artikel2' 
aOrderItem_SC[1].nPositionItem := 2 
aOrderItem_SC[1].xMaterial := xMaterial 
//iid_OrderItem TGUID = '{EE852156-C805-48A8-BD85-87E5C790FB3E}' 
vRecordInfo := GetStructRecordInfo(iid_OrderItem, LIBID_SilentCommerceLib) 
vOrderItem_SC := VarArrayCreateEx([0,1], VT_RECORD, vRecordInfo) 
pOrderItem_SC := VarArrayLock(vOrderItem_SC) 
//TRec = array of TOrderItem_SC 
TRec(pOrderItem_SC)[0].xMaterial := aOrderItem_SC[0].xMaterial 
TRec(pOrderItem_SC)[0].nPositionItem := 1 
TRec(POrderItem_SC)[1].xMaterial := aOrderItem_SC[1].xMaterial 
TRec(POrderItem_SC)[1].nPositionItem := 2 
VarArrayUnlock(vOrderItem_SC) 
psOrderItem_SC := PSafeArray(TVarData(vOrderItem_SC).VArray) 
xOrder.eOrderType := 0 
xOrder.xHeaderInfo := xHeaderInfo 
xOrder.nShipToExists := 0 
xOrder.nBillToExists := 0 
xOrder.nNumberOfItems := 2 
xOrder.xOrderItems := psOrderItem_SC 
FOrderRequest.SendOrder(xUserData , xOrder , xOrderResponse , sLoggingInfo) 

&#10

**Yaser Isa** · 17.02.2004, 08:19

Hallo Herr Kosch. 
Vielen Dank f�r Ihre Antwort. Ich habe einen Auszug der Typbibliothek bzw. die unterschiedlichen Versuche (mit Hilfe von OsUDFExt.pas) aufgef�hrt: 
// ************************************************** *******************// 
// Forward-Deklaration von in der Typbibliothek definierten Typen 
// ************************************************** *******************// 
IOrderRequest = interface; 
IOrderRequestDisp = dispinterface; 

// ************************************************** *******************// 
// Deklaration von in der Typbibliothek definierten CoClasses 
************************************************** *******************// 
SilentCommerce = IUnknown; 
// ************************************************** *******************// 
// Deklaration von Strukturen, Unions und Aliasen. 
// ************************************************** *******************//
TUserData_SC = packed record 
sSalesOrgId: WideString; 
sUserId: WideString; 
sPassword: WideString; 
sLanguage: WideString; 
end; 

TOrderHeaderInfo_SC = packed record 
sSupplierNumber: WideString; 
sPurchaseNumber: WideString; 
sCurrency: WideString; 
nCompleteDelivery: Integer; 
sDispatchMode: WideString; 
sDeliveryDate: WideString; 
sInquiryNumber: WideString; 
end; 
TOrder_SC = packed record 
eOrderType: __MIDL___MIDL_itf_SilentCommerce_0000_0001; 
xHeaderInfo: TOrderHeaderInfo_SC; 
nShipToExists: Integer; 
xShipTo: TCustomer_SC; 
nBillToExists: Integer; 
xBillTo: TCustomer_SC; 
nNumberOfItems: Integer; 
xOrderItems: PSafeArray; 
end; 

TMaterial_SC = packed record 
sNumberSystem: WideString; 
sMaterial: WideString; 
sEan: WideString; 
end; 

TOrderItem_SC = packed record 
nPositionItem: Integer; 
xMaterial: TMaterial_SC; 
sShortText: WideString; 
nRequestedQuantity: Integer; 
sQuantityUnit: WideString; 
nPartialDelivery: Integer; 
nAlternativeMaterialAllowed: Integer; 
nBackOrderAllowed: Integer; 
sDeliveryDate: WideString; 
end; 

TROrder_SC = packed record 
sDocumentNumber: WideString; 
sTeccomDocumentId: WideString; 
nNumberOfHeaderResponses: Integer; 
xHeaderResponses: PSafeArray; 
nNumberOfROrderItems: Integer; 
xROrderItems: PSafeArray; 
end; 

TResponse_SC = packed record 
nResponseClass: Integer; 
nResponseType: Integer; 
nResponseNumber: Integer; 
sResponseText: WideString; 
sResponseParameter: WideString; 
end; 
// ************************************************** *******************// 
// Schnittstelle: IOrderRequest 
// Flags: (4416) Dual OleAutomation Dispatchable 
// GUID: {60F59E8A-2151-4F1C-B40E-3DDF01B8AF97} 
// ************************************************** *******************// 
IOrderRequest = interface(IDispatch) 
['{60F59E8A-2151-4F1C-B40E-3DDF01B8AF97}'] 
procedure SendOrder(var xUserData: TUserData_SC; var xOrder: TOrder_SC;
var xOrderResponse: TROrder_SC; var sLoggingInfo: WideString); safecall; 
end; 

// ************************************************** *******************// 
// DispIntf: IOrderRequestDisp 
// Flags: (4416) Dual OleAutomation Dispatchable 
// GUID: {60F59E8A-2151-4F1C-B40E-3DDF01B8AF97} 
// ************************************************** *******************// 
IOrderRequestDisp = dispinterface 
['{60F59E8A-2151-4F1C-B40E-3DDF01B8AF97}'] 
procedure SendOrder(var xUserData: {??TUserData_SC}OleVariant;
var xOrder: {??TOrder_SC}OleVariant;
var xOrderResponse: {??TROrder_SC}OleVariant; var sLoggingInfo: WideString); dispid 1; 
end; 
1. Versuch SenderOrder auszuf�hren mit dem Ergebnis "Falscher Parameter" 
var 
FOrderRequest: IOrderRequest 
xUserData: TUserData_SC 
xOrder: TOrder_SC 
xHeaderInfo: TOrderHeaderInfo_SC 
xOrderItems: TOrderItem_SC 
xMaterial: TMaterial_SC 
xOrderResponse: TROrder_SC 
sLoggingInfo: WideString 
aOrderItem_SC: Array[0..1] of TOrderItem_SC 
vOrderItem_SC: Variant 
vRecordInfo: IRecordInfo 
pOrderItem_SC: Pointer 
psOrderItem_SC: PSafeArray 
begin 
FOrderRequest := CreateOleObject('SilentCommerce.OrderRequest') as IOrderRequest 
xUserData.sSalesOrgId := '' 
xUserData.sUserId := '' 
xUserData.sPassword := '' 
xUserData.sLanguage := 'DE' <VR>
xHeaderInfo.sSupplierNumber := '4711' 
xHeaderInfo.sPurchaseNumber := '4711' 
xHeaderInfo.sCurrency := 'EUR' 
xHeaderInfo.nCompleteDelivery := 1 
xMaterial.sMaterial := 'Artikel1' 
aOrderItem_SC[0].nPositionItem := 1 
aOrderItem_SC[0].xMaterial := xMaterial 
xMaterial.sMaterial := 'Artikel2' 
aOrderItem_SC[1].nPositionItem := 2 
aOrderItem_SC[1].xMaterial := xMaterial 
//iid_OrderItem TGUID = '{EE852156-C805-48A8-BD85-87E5C790FB3E}' 
vRecordInfo := GetStructRecordInfo(iid_OrderItem, LIBID_SilentCommerceLib) 
vOrderItem_SC := VarArrayCreateEx([0,1], VT_RECORD, vRecordInfo) 
pOrderItem_SC := VarArrayLock(vOrderItem_SC) 
//TRec = array of TOrderItem_SC 
TRec(pOrderItem_SC)[0].xMaterial := aOrderItem_SC[0].xMaterial 
TRec(pOrderItem_SC)[0].nPositionItem := 1 
TRec(POrderItem_SC)[1].xMaterial := aOrderItem_SC[1].xMaterial 
TRec(POrderItem_SC)[1].nPositionItem := 2 
VarArrayUnlock(vOrderItem_SC) 
psOrderItem_SC := PSafeArray(TVarData(vOrderItem_SC).VArray) 
xOrder.eOrderType := 0 
xOrder.xHeaderInfo := xHeaderInfo 
xOrder.nShipToExists := 0 
xOrder.nBillToExists := 0 
xOrder.nNumberOfItems := 2 
xOrder.xOrderItems := psOrderItem_SC 
FOrderRequest.SendOrder(xUserData , xOrder , xOrderResponse , sLoggingInfo) 
2. Versuch. Bin beim �bergeben der Parameter gescheitert. 
pDisp := CreateOleObject('SilentCommerce.OrderRequest') as IOrderRequest; 
sPropName := 'SendOrder'; 
OleCheck(pDisp.GetIDsOfNames (GUID_NULL, @sPropName, 1,
LOCALE_SYSTEM_DEFAULT, @iDispId)); 
Habe vSet die einzelnen Record (s. oben) in Variant gewandelt und eine OleVariant zugewiesen(VarArrayCreate([0,3], varVariant)) 
vSet := True; 
FillChar(aDispParams, SizeOf (aDispParams), 0); 
with aDispParams do begin 
rgvarg := @vSet; 
cArgs := 4; 
cNamedArgs := 1; 
end; 
aDispId := DISPID_PROPERTYPUT; 
aDispParams.rgdispidNamedArgs := @aDispId; 
OleCheck (pDisp.Invoke (iDispId, GUID_NULL, LOCALE_SYSTEM_DEFAULT,
DISPATCH_PROPERTYPUT, aDispParams, NIL, @aEI, @iError)); 
3. Versuch mit der Meldung "No Mapping for Dispatch Mode". Wie unter 1 jedoch wurden die Variablen xMaterial und xHeaderInfo nach yMaterial und yHeaderInfo umbenannt. ?????? 
Ich komme jedenfalls keinen Schritt weiter. W�re dankbar f�r eine L�sung dieses Problems. 
Dank

**Andreas Kosch** · 17.02.2004, 15:24

Hallo,

der Zugriff �ber die sp�te Bindung kann nicht Funktionieren, weil Delphi beim Importieren der TLB bei den User Defined Types das Handtuch geworfen hat:
<pre>
procedure SendOrder(var xUserData: {??TUserData_SC}OleVariant;
var xOrder: {??TOrder_SC}OleVariant;
var xOrderResponse: {??TROrder_SC}OleVariant;
var sLoggingInfo: WideString); dispid 1;
</pre>
Man kann zwar auch in Delphi auf UDTs zur�ckgreifen, aber dann darf der COM-Server allerdings kein Dual-Interface verwenden (d.h. diese Option wird auf der Registerseite Flags in der TLB abgew�hlt). Nur der Zugriff �ber die fr�he Bindung (VTable) ist in diesem Fall erlaubt.

In der importierten TLB-Unit sieht das dann so aus: 

a) falsch: // Flags: (4416) Dual OleAutomation Dispatchable

b) richtig: // Flags: (4352) OleAutomation Dispatchabl

**Yaser Isa** · 17.02.2004, 19:01

Hallo. Danke f�r die Antwort 
Dual-Flag habe ich herausgenommen. 
Habe anschlie�end die SendOrder aufgerufen ohne die Records zu f�llen. Es kam die Meldung das der Username bzw. Passwort falsch ist. Soweit alles in Ordnung. Anschlie�end habe ich Userdaten dem Record xUserdata Feld1 und Feld2 Werte zugeordnet. Bis dahin war auch alles in Ordnung. Als ich dann die restl. 2 Felder gef�llt habe, bekam die Fehlermeldung "No Mapping for Dispatch Mode". Woran kann das schon wieder liegen

**Andreas Kosch** · 18.02.2004, 09:58

Hallo,

in der importierten TLB-Unit besteht TUserData_SC aus 4 WideString-Feldern. Werden diese Felder auch mit WideStrings bef�llt

**Yaser Isa** · 18.02.2004, 13:08

Hallo Herr Kosch. 

Ich habe nun vom Hersteller des COM-Objekts herausgefunden das die Meldung "No Mapping for Dispatch Mode" �berhaupt nichts mit COM zu tun hat. Die Meldung bedeutet lediglich das die "Versandart" fehlt. Da muss man erst einmal drauf kommen. Ich werde nun alle Records mit Werten f�llen und warte mal ab was dann passiert. Ich bedanke mich recht herzlich f�r Ihre Unterst�tung und hoffe das keine weiteren Probleme vorkommen

**Yaser Isa** · 19.02.2004, 12:30

Hallo 
Ich habe ein Problem Werte aus einem PSafeArray auszulesen. Das COM-Objekt �bergibt mir ein Record welcher ein PSafeArray beinhaltet. PSafeArray Lese ich wie folgt aus: 
var 
po: Pointer; 
i, iDim, iLBound, iUBound: Integer; 
begin 
po := xOrderResponse.xROrderItems //xROrderItems = PSafeArray 
iDim := SafeArrayGetDim(po); 
if iDim = 1 then 
begin 
SafeArrayGetLBound(po, 1, iLBound); 
SafeArrayGetUBound(po, 1, iUBound); 
for i := iLBound to iUBound do 
begin 
SafeArrayGetElement(po, i, xROrderItem_SC); 
... 
end; 
Beim ersten Durchlauf (i=0) werden die Werte korrekt ausgelesen. Ist i > 0 bekomme ich die Meldung "Allgemeine Zugriffsverletztung ... in Modul OleOut32.dll" 
Gibt es einen anderen Weg ein PSafeArray auszulesen ?<BR&gt

**Andreas Kosch** · 20.02.2004, 08:48

Hallo,

der Client kann aus einem SafeArray nur dann die Daten fehlerfrei auslesen, wenn auch der Server das SafeArray korrekt bef�llt hat. Das folgende Beispiel demonstriert dies:
<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
aArray : Variant;
sTxt : String;
begin
aArray := VarArrayCreate([0, 8], varOleStr);
for i := 0 to 8 do begin
sTxt := 'Eintrag ' + IntToStr(i+1);
aArray[i] := sTxt;
end;
ShowArrayItems(PSafeArray(TVarData(aArray).VArray) );
end;
 
procedure TForm1.ShowArrayItems(pValues: PSafeArray);
var
i : Integer;
swValue : WideString;
begin
for i := 0 to 8 do begin
SafeArrayGetElement(pValues, i, swValue);
ListBox1.Items.Add(swValue);
end;
end;
</pre>
Steht allerdings die Anzahl der Elemente im SafeArray nicht fest, mu� der Aufruf von SafeArrayGetElement durch SafeArrayGetUBound ersetzt werden. Anschlie�end wird der Endwert f�r die FOR-Schleife durch den von SafeArrayGetUBound ermittelten Wert f�r die Anzahl der Eintr�ge im SafeArray ersetzt:
<pre>
procedure TFormMain.ButtonInfoClick(Sender: TObject);
var
pSA : PSafeArray;
i : Integer;
swValue : WideString;
iDim : Integer;
iLBound : Integer;
iUBound : Integer;
begin
pSA := nil;
FSrv.GetInfos(pSA);
iDim := SafeArrayGetDim(pSA);
if iDim = 1 then
begin
SafeArrayGetLBound(pSA, 1, iLBound);
SafeArrayGetUBound(pSA, 1, iUBound);
for i := iLBound to iUBound do
begin
SafeArrayGetElement(pSA, i, swValue);
ListBox1.Items.Add(swValue);
end;
end;
SafeArrayDestroy(pSA);
end;
</pre&gt

Announcement

No Mapping for Dispatch Mode

No Mapping for Dispatch Mode

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment