delphi - How to return WideString from COM server? -

-

this interface @ _tlb.pas file

// *********************************************************************// // interface: itmycom // flags: (256) oleautomation // guid: {d94769d0-f4af-41e9-9111-4d8bc2f42d69} // *********************************************************************// itmycom = interface(iunknown) ['{d94769d0-f4af-41e9-9111-4d8bc2f42d69}'] function mydrawws(a: integer; b: integer): widestring; stdcall; end;

this looks @ os windows

[ odl, uuid(d94769d0-f4af-41e9-9111-4d8bc2f42d69), version(1.0), helpstring("interface tmycom object"), oleautomation ] interface itmycom : iunknown { bstr _stdcall mydrawws( [in] long a,  [in] long b); };

function in com server looks as

function ttmycom.mydrawws(a, b: integer): widestring; begin result := widestring(inttostr(a+b)); end;

in com client i`m calling function 

edit1.text := string(mycom.mydrawws(1,1));

and error first chance exception @ $75a9fbae. exception class eaccessviolation message 'access violation @ address 75a409a4 in module 'rpcrt4.dll'. read of address fffffff8'. process project1.exe (2296)

if want returning integer, it`s works. how return widestring?

the correct way handle follows:

[  odl,  uuid(d94769d0-f4af-41e9-9111-4d8bc2f42d69),  version(1.0),  helpstring("interface tmycom object"),  oleautomation  ]  interface itmycom : iunknown {  hresult _stdcall mydrawws(  [in] long a,   [in] long b, [out, retval] bstr* ret);  };   itmycom = interface(iunknown)    ['{d94769d0-f4af-41e9-9111-4d8bc2f42d69}']    function mydrawws(a: integer; b: integer; out ret: widestring): hresult; stdcall;  end;   function ttmycom.mydrawws(a, b: integer; out ret: widestring): hresult;  begin    ret := inttostr(a+b);   result := s_ok; end;   var   w: widestring; begin   olecheck(mycom.mydrawws(1, 1, w));   edit1.text := w; end;

which can simplified little using delphi's safecall calling convention in delphi declaration (not in typelibrary itself) of interface:

itmycom = interface(iunknown)    ['{d94769d0-f4af-41e9-9111-4d8bc2f42d69}']    function mydrawws(a: integer; b: integer): widestring; safecall; end;   function ttmycom.mydrawws(a, b: integer): widestring; begin    result := inttostr(a+b); end;   edit1.text := mycom.mydrawws(1, 1);

Comments

Post a Comment

Popular posts from this blog

android - Spacing between the stars of a rating bar? -

-
ho can set spacing beween stars? thats ratingbar: ratingbar = (ratingbar) inflater.inflate(r.layout.ratingbar, null); ratingbar.setlayoutparams(new layoutparams(layoutparams.wrap_content, layoutparams.wrap_content)); the layout: <?xml version="1.0" encoding="utf-8"?> <ratingbar xmlns:android="http://schemas.android.com/apk/res/android" style="@style/mystyle" android:layout_alignparentright="true" android:layout_height="19dp" android:layout_width="wrap_content" android:numstars="5"> </ratingbar> the style: <style name="mystyle" parent="@android:style/widget.ratingbar"> <item name="android:progressdrawable">@drawable/android_r2_ratingstar_yellow</item> <item name="android:indeterminatedrawable">@drawable/android_r2_ratingstar_grey</item> </style> thanks, cheers you have ...
Read more

html - Instapaper-like algorithm -

-
does of algorithm extracts contents webpage? instapaper ? there 2 steps instapaper does: find main content block on page (excluding headers, footers, menus etc) from content block extract , format text to find content block (typically html block element, div containing key page text content) instapaper uses algorithm 1 used readability . can @ source of readability.js see what's going on, @ core tries find area on page highest text/link ratio, although has other simple scoring metrics (e.g. off top of head, things ratio of text commas, para elements etc) go heuristics. once have identified root node element, relevant content, you'll need format it, if want can pull node element containing text out of source document , insert yours, in reality you'll want remove existing styles , apply own, standard , feel. if want output nice text-only can use jericho's renderer . update1 : should mention else instapaper - follow 'pagination' links (...
Read more

c# - How to execute a particular part of code asynchronously in a class -

-
i creating speech recognition engine that's going respond user commands.i have created button enable , disable speech recognition per user convenience.i have used dispose() of speech engine disable speech recoginition.here code private void button1_click(object sender, routedeventargs e) { engineon = !engineon; if (engineon) { speechengine = speech.createspeechengine(); //speech class creates , returns new speech engine. speechengine.audiolevelupdated += new eventhandler<audiolevelupdatedeventargs>(speechengine_audiolevelupdated); // use system's default microphone speechengine.setinputtodefaultaudiodevice(); speechengine.loadgrammar(new dictationgrammar()); // start listening speechengine.recognizeasync(recognizemode.multiple); } else { speechclass.myengine.dispose(); } } but disposal of speech obj...
Read more