Einzelnen Beitrag anzeigen

matmok

Registriert seit: 9. Feb 2006
Ort: Köln
22 Beiträge
 
Delphi 2007 Enterprise
 
#1

Performant Strings über ActiveX austauschen

  Alt 17. Dez 2007, 13:38
(Ich nutze Borland CBuilder6 unter XP.)
Ich habe einen ActiveX Server und einen ActiveX Client programmiert und möchte (natürlich möglichst performant) Strings mit dem Client vom Server abrufen.

Die Implementation im ActiveXServer:
STDMETHODIMP ActiveXServ::GetNext(BSTR* TextA, BSTR* TextB, BSTR* TextC ...)
{
*TextA = (WideString)MeinAnsiString;
...
}

Der Aufruf im Client:
MeinActiveXClient::GetTexts()
{
WideString a, b, c;
ActiveXServer->GetNext(&a, &b, &c);
}

Mein Problem: Dadurch dass ich nur Referenzen auf die lokalen Variablen im Client übergebe werden die Strings überschrieben, die Längen stimmen nicht. Eigentlich müsste ich den benötigten Speicher doch im ActiveXServer allocieren...
Wie macht man das richtig?
VARIANT und SAFEARRAYS möchte ich möglichst nicht nutzen weil ich vermute dass das langsamer ist.

Vielen Dank im Voraus,
Matmok

<EDIT>
===> offensichtlich habe ich diese Frage zu voreilig gestellt. Nach ausgibiger Google-Labs codesuche (Suchbegirff <lang:"c++" BSTR* "/*[out]*/">)habe ich folgendes gefunden:
// The wrong way to do it
BSTR * MyBadFunction()
{
// Define a pointer to a BSTR
BSTR * bstrStringPtr;
// Create the CComBSTR object
CComBSTR bstrString("Hello World");
// Convert the string to uppercase
bstrString.ToUpper();
// Assign the pointer
* bstrStringPtr = bstrString;
// Return the pointer. ** Bad thing to do **
return bstrStringPtr;
}
// The correct way to do it
HRESULT MyGoodFunction(/*[out]*/ BSTR* bstrStringPtr)
{
// Create the CComBSTR object
CComBSTR bstrString("Hello World");
// Convert the string to uppercase
bstrString.ToUpper();
// Return a copy of the string.
return bstrString.CopyTo(bstrStringPtr);

bis zum nächsten Mal,
mfg,
Matmok
  Mit Zitat antworten Zitat