Re: Callback From .NET Com Class to Delphi - COM Discussion Boards

Re: How to create a simple COM component in C++

5-Jun-14 4:04

See Introduction to COM - What It Is and How to Use It.[^], and COM in plain C[^].

Member 989964421-Jun-14 21:19

Member 9899644

21-Jun-14 21:19

when you starting with new technology first need to read a books regarding that. then google it. for com i suggest you "Inside COM" by dale rogerson and "essential COM" by Don Box.
All the best.. Thumbs Up | :thumbsup:

Setting up the COM+ Identity using C# Code

Juan Topo19-May-14 9:50

Juan Topo

19-May-14 9:50

Hello, I recently started programming with COM Objects Catalog using C-Sharp.

In principle, everything turned out pretty simple and I managed crar COM objects, install them and make them visible from the console, register and configure some properties of automatic way.

However I am with some problems as it relates to the configuration of some properties, namely:

While I can configure the identity component, either as INTERACTIVE USER or a specific user, I could not configure the identity of the COM + application with the Auditors Local System (Local System, Local Service and Network Service)

I do this as follows:

            Boolean resultado = false; ;
            ICOMAdminCatalog catalog;
            ICatalogCollection applicationCollection;
            ICatalogObject application;
            int applicationCount;
            int i;

            try
            {
                catalog = (ICOMAdminCatalog)new COMAdminCatalog();
                applicationCollection = (ICatalogCollection)catalog.GetCollection("Applications");
                applicationCollection.Populate();
                applicationCount = applicationCollection.Count;
                

                for (i = 0; i < applicationCount; i++)
                {
                    application = (ICatalogObject)applicationCollection.get_Item(i);
                    
                    if (application.Name == nombreApp)
                    {
                        application.Value["ApplicationAccessChecksEnabled"] = false;

// Interactive User:
 application.Value["Identity"] = "Interactive User";
                                applicationCollection.SaveChanges();

//Specific user:

 application.Value["Identity"] = txtUsuario.Text;
                                application.Value["Password"] = txtClave.Text; 

//Save Changes

 applicationCollection.SaveChanges();

            }

            catch (Exception ex)
           {
                resultado = false;
                MessageBox.Show(ex.Message);
            }
        }

Can you think how to configure the Local System Account? I tell them that if IDENTITY indicated in the following:

@ "nt authority \ LocalService"

and PASSWORD "" (empty)

Everything goes well, but in reality is set to a specific user with the supplied information.

From already thank you very much! Laugh | :laugh:

How do I set variable in ShockwaveFlashObjects C#

Member 106494598-Mar-14 6:04

Member 10649459

8-Mar-14 6:04

Hey,
i have some .swf decompiled and i can see all the .as files in it.
so now i want to edit some variable in for example i want to edit the variable "x" in main.as
so i loaded the swf and when i want to setVariable I get the error:
"Error HRESULT E_FAIL has been returned from a call to a COM component."
you know how can I get the variable and change it?

VB6 to .Net Interop issue

Sampath Sridhar1-Dec-13 23:10

Sampath Sridhar

1-Dec-13 23:10

I am writing a middleware library in .Net which will be invoking Web services and respond back to VB6 legacy applications with the service output.
So far I have made the assembly as ComVisible without generating strong-name for it.
The .Net dll will be used to generate a type library (.tlb) which can be added in Project References of the VB6 application and used to invoke the services.

Using regasm tool, the TLB file is generated fine and registered to the local registry.

I first registered the TLB from local system drive and everything worked fine.

Now the system constraint is that, the assembly and type library cannot be stored in end-user machines.
So I need to map to a network drive and register the TLB from there.
The regasm tool registers it from network drive also, but the VB6 application is not able to access the classes in .Net

Command used: WINDIR%\Microsoft.Net\Framework\v2.0.50727\regasm <dllname> /tlb /codebase <network folder path>

Whenever i try to create new object, it is throwing error '430-Automation error. Class does not support the expected interface'.

So I want to know how to resolve this issue?

Callback From .NET Com Class to Delphi

P1kfr1k9-Oct-13 1:05

P1kfr1k

9-Oct-13 1:05

I just can't seem to get this right.
I have a Com Class written in VB.Net that brings up a form where users can enter information.
I have a delphi program that opens this class and it shows the form fine.
The problem I have is with events raised in the Com Class. It just does not get fired in delphi, although I can assign it to a procedure.

Has anybody managed to do this?

Re: Callback From .NET Com Class to Delphi

Richard MacCutchan9-Oct-13 1:49

The group or resource is not in the correct state to perform the requested operation

9-Oct-13 1:49

You may be better posting this question in the Delphi forum.

Veni, vidi, abiit domum

Hari-Adarapu19-Sep-13 12:49

Hari-Adarapu

19-Sep-13 12:49

Hi,

Here is the scenario.

IE9 loads a com activex, when an activex method is called, in the method it launches another com exe (registerless using manifest), cocreates and get the interface pointer then calls a method of that interface.

I am able to launch, cocreate and get interface pointer but when the method of that interface is called the following error is returned. "The group or resource is not in the correct state to perform the requested operation"

Can someone help me on this please?

Regards,
Hari

WorkBooks::Opentext help

ForNow13-Sep-13 11:37

13-Sep-13 11:37

Hi
I am re-posting this as due to continued efforts I have not come up a solution to the bug

C++

COleVariant
covTrue((short)TRUE),
covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
 CApplication app;
 CWorkbooks books;
 CWorkbook book;



    app.CreateDispatch(TEXT("Excel.Application"));
    books = app.get_Workbooks();
    COleVariant myvar;
    myvar.vt = VT_I4;
    myvar.lVal = NULL;
    COleVariant Orgin((short)2),
                StartRow((short)1),
                DataType((short)1),
                ConsecutiveDelimter((short) FALSE, VT_BOOL),
                TAB((short) FALSE, VT_BOOL),
                Semicolon((short) FALSE, VT_BOOL),
                Comma((short) FALSE, VT_BOOL),
                Space((short) FALSE, VT_BOOL),
                Other((short) FALSE, VT_BOOL),
                OtherChar((short) FALSE, VT_BOOL),
                FieldInfo((short) FALSE, VT_BOOL),
                TextVisualLayout((short) FALSE, VT_BOOL),
                DecimalSeprator((short) FALSE, VT_BOOL),
                ThousandSeprator((short) FALSE, VT_BOOL),
                TrailingMinusNumbers((short) FALSE, VT_BOOL),
                Local((short) FALSE, VT_BOOL);
   books.OpenText(L"C:\\PATH1\\PATH2\\PATH2\\FILE.TXT,
                                            Orgin,
                       StartRow,
                       DataType,
                       myvar.lVal,
                       ConsecutiveDelimter,
                       TAB,
                       Semicolon,
                       Comma,
                       Space,
                       Other,
                       OtherChar,
                       FieldInfo,
                       TextVisualLayout,
                       DecimalSeprator,
                       ThousandSeprator,
                       TrailingMinusNumbers,
                       Local);

After executing

C++

SCODE sc = m_lpDispatch->Invoke(dwDispID, IID_NULL, 0, wFlags,
       &dispparams, pvarResult, &excepInfo, &nArgErr);

sc = 80020009 and execpInfo.scode = 0X800A03EC

ForNow14-Sep-13 17:12

14-Sep-13 17:12

I am trying to load the
.txt file specified in the first parameter of the OpenText API

And for some reason I get the feeling the source of the error
Is its not finding the file
I tried various variations on the file name as just specifying the file and having it in a directory
That's in the path variable but I still get the same error

Thanks

Richard MacCutchan14-Sep-13 22:52

14-Sep-13 22:52

Are you sure the function requires a Unicode string for the filename?

Veni, vidi, abiit domum

ForNow15-Sep-13 6:13

15-Sep-13 6:13

I was told that automation functions
That take variant types in this case VT_BSTR a variant string are always unicode

Richard MacCutchan15-Sep-13 6:27

Win8: Credential provider. CPUS_ONLOCK_WORKSTATION scenario

15-Sep-13 6:27

I have not managed to find a decent explanation for either of the error codes you received. All I can suggest is that you test with a Unicode and ASCII version of the string, and be sure that the path to the file is correct.

Veni, vidi, abiit domum

_clown_10-Sep-13 0:27

_clown_

10-Sep-13 0:27

Hello,
I'm trying to solve one problem with custom cred.prov. on win8.
The problem is that if you select any tile (e.g. my, custom) and you have CPUS_UNLOCK_WORKSTATION scenario - Logonui will dismiss it automatically after 1 minute. This is not relevant to CPUS_LOGON scenario. Selected tile will stay untill user press Ok or Cancel buttons.

So I'd like to ask, maybe somebody has worked with such thing already, is it possible to handle that moment when selected tile is going to be dismissed.

using debugging I found that IConnectableCredentialProviderCredential::SetDeselected() is not called when IConnectableCredentialProviderCredential::SetSelected() is called by selecting the tile.

ATL and MFC string conversion macros conversion macros

ForNow13-Aug-13 11:38

Re: ATL and MFC string conversion macros conversion macros

13-Aug-13 11:38

Hi,

using the OpenText method I have noticed the filename string has nulls in between by the time Automation is about to execute the request

I have looked at the documentation and I am not sure what macros to use to get this right

Can anyone help

http://msdn.microsoft.com/en-us/library/87zae4a3(v=vs.90).aspx#atl70stringconversionclassesmacros[^]

Richard MacCutchan13-Aug-13 21:50

See http://www.codeproject.com/Messages/4636081/Re-its-a-text-Formatting-problem.aspx[^].

13-Aug-13 21:50

Use the best guess

0x80020009 access rights opentext

ForNow9-Aug-13 11:22

Re: 0x80020009 access rights opentext

9-Aug-13 11:22

Seems like the above error has to do with access rights

I am running windows 7
I right click on the file and under the security I see everything checked off but the special permissions don't know if that would be the problem

Richard MacCutchan10-Aug-13 0:34

Re: 0x80020009 access rights opentext

10-Aug-13 0:34

Without information on the context in which you receive the error it is impossible to speculate.

Use the best guess

ForNow12-Aug-13 11:39

its a text Formatting problem

12-Aug-13 11:39

Here is the code

C++

COleVariant myvar;
	 myvar.vt = VT_I4;
	 myvar.lVal = NULL;
	 COleVariant Orgin((short)3),
		         StartRow((short)1),
				 DataType((short)1),
				 ConsecutiveDelimter((short) FALSE, VT_BOOL),
				 TAB((short) FALSE, VT_BOOL),
				 Semicolon((short) FALSE, VT_BOOL),
				 Comma((short) FALSE, VT_BOOL),
				 Space((short) FALSE, VT_BOOL),
				 Other((short) FALSE, VT_BOOL),
				 OtherChar((short) FALSE, VT_BOOL),
				 FieldInfo((short) FALSE, VT_BOOL),
				 TextVisualLayout((short) FALSE, VT_BOOL),
				 DecimalSeprator((short) FALSE, VT_BOOL),
				 ThousandSeprator((short) FALSE, VT_BOOL),
				 TrailingMinusNumbers((short) FALSE, VT_BOOL),
				 Local((short) FALSE, VT_BOOL);

books.OpenText(_T("C:\\FILE\\EXCEL.TXT"),
		               Orgin, 
		               StartRow,
			      DataType,
			      myvar.lVal,
			      ConsecutiveDelimter,
			      TAB,
			      Semicolon,
			      Comma,
			      Space,
			      Other,
			      OtherChar,
			      FieldInfo,
			      TextVisualLayout,
			      DecimalSeprator,
			      ThousandSeprator,
			      TrailingMinusNumbers,
                                                     Local);

ForNow13-Aug-13 11:14

Re: its a text Formatting problem

13-Aug-13 11:14

Hi

I lookend filename in memory and every letter is seprated by a NULL X'00' so C: is 43005C I am out of my debugging session but I think 5C is :

Thanks

Richard MacCutchan13-Aug-13 21:28

in excel, how to get the char after the cursor when in edit mode

13-Aug-13 21:28

That just means it is a Unicode string. I have explained to you a number of times about your mishandling of Unicode and ASCII strings, and I suspect this is just another example.

Use the best guess

BCN-16328-Jul-13 21:20

BCN-163

28-Jul-13 21:20

in excel, when enter a cell.no VBA functions are available.

how can I get the character or word after the cursor. or the whole line where the cursor located.

Any tips or reference will be appreciated.

I have done a lot research, but still have no idea.

WorkBooks::OpenText

ForNow25-Jul-13 17:34

25-Jul-13 17:34

Hi,

I am trying to open text file into a Excel Spreadsheet and I am getting all kinds of exceptions

below is my code as all but the filename paramter is optional I am wondering if someone can post a
example

C++

COleVariant myvar;
	 myvar.vt = VT_I4;
	 myvar.lVal = NULL;
	books.OpenText(TEXT("C:\\DOCUMENTS\\MYFILE.TXT"),
		                covOptional,
			       covOptional,
			       covOptional,
			       myvar.lVal,
			       covOptional,
			       covOptional,
			       covOptional,
			       covOptional,
			       covOptional,
			       covOptional,
			       covOptional,
			       covOptional,
			       covOptional,
			       covOptional,
			       covOptional,
			       covOptional,
			       covOptional);

Re: WorkBooks::OpenText

Richard MacCutchan25-Jul-13 22:28