.NET (Core and Framework)

problem with richedit control [modified]

12-May-09 20:43

Can we use .Net Remoting if we have a COM client? That is, have a .net remoting object, a .net listener and a com client to request for the .net remote object?

ramaluciano12-May-09 19:52

ramaluciano

12-May-09 19:52

Hi,
I can´t understand this:
help!

I´m developing application, and it´s using iText Library for generate PDF. The text input must be Rich formated. The pdf document generated, must be exactly equal to text. I´m parsed the text, for generated font name, color,size and then, the objects needed for iText ( it´s not support RTF to PDF conversions )

I´m using RichEdit Control, but the font size is not correct in comparission with the generated pdf. ( also are images objects ).

Then, I did a SIMPLE test with the DrawString method (gdi), ( same text, same font name and font size ), but they are not equal WIDTH. ( Richtext and drawtext ).
Conclusion: using a DrawString method generated the correct pdf (correct size).
The height and the size of each character are equal. The only diference is the char spacing

Why occurs this ?
I need resolve this problem with the fuc... Rich Edit Control.

Thanks!

PS: sorry for my poor english

modified on Wednesday, May 13, 2009 1:31 AM

IRunningObjectTable.Register method

lee2312-May-09 19:23

Re: IRunningObjectTable.Register method

12-May-09 19:23

According to msdn the IRunningObjectTableRegister method takes 4 parameters. See http://msdn.microsoft.com/en-us/library/ms680747(VS.85).aspx

However, the one in System.Runtime.InteropServices.ComTypes only takes 3. See http://msdn.microsoft.com/en-us/library/system.runtime.interopservices.comtypes.irunningobjecttable.register.aspx .

Does anyone know if the return value of the .Net Register method is the dwRegister value required for the IRunningObjectTable.Revoke method? The explanation just says the return value is “An HRESULT value that indicates the success or failure of the operation.”

Thanks in advance.

lee2312-May-09 20:06

Re: IRunningObjectTable.Register method

12-May-09 20:06

Sorry, I just saw the "Community Content" bit at the end of the .net article saying the return value is the dwRegister value for the Revoke method.

I have a windows service which instantiates a class and would like to register this object in the ROT. I have found that testing this registry to the ROT works fine when it's done in a standalone exe but not within a windows service. I have read a case for why it doesn't work when in the Windows Service, that there is this flag ROTFLAGS_ALLOWANYCLIENT which you can pass to the Register method to allow any client to see it. Have I understood that the .net's IRunningObjectTable is the one that accepts this flag whereas the Ole32 one does not?

private int myRegisterActiveObject(object pUnk)
{
    string sDelim = "!";
    string sProgID = "MyNamespace.ClassName";

    IBindCtx bc;
    Ole32.CreateBindCtx(0, out bc);

    IMoniker moniker;
    Ole32.CreateItemMoniker(sDelim,sProgID, out moniker);

    IRunningObjectTable rot;
    bc.GetRunningObjectTable(out rot);

    int register = rot.Register((ROTFLAGS_REGISTRATIONKEEPSALIVE | ROTFLAGS_ALLOWANYCLIENT), pUnk, moniker);

    return register;
}

I get in the EventLog, "Service cannot be started. System.Runtime.InteropServices.COMException (0x80004015): The class is configured to run as a security id different from the caller (Exception from HRESULT: 0x80004015)..."

The Service is run under account type LocalSystem.

lee2313-May-09 21:25

Seeking advice for storing data in memory [modified]

13-May-09 21:25

Notes I've read indicate that I also need to add registry below...

[HKEY_CLASSES_ROOT\APPID\myApp.exe]
"APPID"="{guid}"

But I don't know where i can find this AppId guid. Tried the assembly guid, the Service class's guid, the class guid and still I got the same security erro. I looked in dcomcnfg and my windows service didn't appear there (maybe b/c it failed to start).

glumlord12-May-09 8:46

12-May-09 8:46

I currently have a program which queries LDAP (Active Directory) and stores that data into a Multi-dimensional array.

I am trying to find another way to store the data that will allow me to manage easier.

My application:

- Runs in System Tray
- Starts at Windows Startup
- Retains Active Directory information in Memory for Quick Lookup
- Only Queries LDAP (AD) at application open

The application is used to quickly retrieve information, send emails, view group memberships.

I have just learned how to use a Dataset and Datatables and tried to store the data into that structure instead of an Array.

There are 18 pieces of data being stored for roughly 400 users so I guess that translates to about 7200 records.

I can store the data into the dataset/datatable, but I'm have a few issues:

Speed - Storing to the Datatable takes 23 seconds, versus 2 seconds for storing to an Array
Processor - While storing to the Datatable the processor is at 15-30%
Memory - Even after flushing the memory using a class I have my application is taking 6MB now instead of roughly 800k-1024k it was before.

My question is this, what is the best way to store the data in memory?

Am I doing anything wrong with the way I'm storing the data to a datatable?

Here is a picture of my application:

http:\\www.jkfweb.com\files\example.jpg

The code is in the following post.

modified on Tuesday, May 12, 2009 1:58 PM

glumlord12-May-09 8:59

12-May-09 8:59

Imports System.IO
Imports System.DirectoryServices
Imports System.Data


Module Module1

    Public dsCSIDir As New DataSet("CSIDIR")
    Public Users_Table As New DataTable
    Public drUser As DataRow

    Sub ImportUsers()
        Dim direntry As New DirectoryEntry("LDAP://OU=CSI Users, DC=csileasing, DC=com")
        Dim searcher As New DirectorySearcher(direntry)

        Dim i As Integer = 0
        Dim result As SearchResult
        Console.WriteLine("Started Data Import at :  " &amp;amp; TimeOfDay)
        Try
            searcher.Filter = "(&amp;amp;(objectClass=user)(samaccountname=*))"
            searcher.ClientTimeout = TimeSpan.FromSeconds(5)

            For Each result In searcher.FindAll
                If result.Properties("samaccountname")(0) = Nothing Then
                    Continue For
                End If

                drUser = Users_Table.NewRow

                drUser("index") = i

                If result.Properties.Contains("company") Then
                    drUser("Company") = result.GetDirectoryEntry.Properties("company").Value
                Else
                    Continue For
                End If

                drUser("LoginID") = result.GetDirectoryEntry.Properties("samaccountname").Value
                drUser("DisplayName") = result.GetDirectoryEntry.Properties("cn").Value

                If result.Properties.Contains("title") Then
                    drUser("Title") = result.GetDirectoryEntry.Properties("title").Value
                End If

                If result.Properties.Contains("telephoneNumber") Then
                    drUser("OfficePhone") = result.GetDirectoryEntry.Properties("telephoneNumber").Value
                End If

                If result.Properties.Contains("mobile") Then
                    drUser("CellPhone") = result.GetDirectoryEntry.Properties("mobile").Value
                End If

                If result.Properties.Contains("mail") Then
                    drUser("Email") = result.GetDirectoryEntry.Properties("mail").Value
                End If

                If result.Properties.Contains("streetAddress") Then
                    drUser("Street") = result.GetDirectoryEntry.Properties("streetAddress").Value
                End If

                If result.Properties.Contains("l") Then
                    drUser("City") = result.GetDirectoryEntry.Properties("l").Value
                End If

                If result.Properties.Contains("st") Then
                    drUser("State") = result.GetDirectoryEntry.Properties("st").Value
                End If

                If result.Properties.Contains("postalCode") Then
                    drUser("PostalCode") = result.GetDirectoryEntry.Properties("postalCode").Value
                End If

                If result.Properties.Contains("memberof") Then
                    Dim groups As DirectoryServices.ResultPropertyValueCollection = result.Properties.Item("MemberOf")
                    Dim groupslist As String = ""
                    Dim groupname As String = ""
                    For k As Int16 = 0 To groups.Count - 1
                        Dim fullname As String = result.Properties("memberof").Item(k).ToString
                        groupname = Left(Split(fullname, "=")(1), Len(Split(fullname, "=")(1)) - 3)
                        groupslist = groupslist &amp;amp; groupname &amp;amp; ","
                    Next
                    groupslist = Left(groupslist, Len(groupslist) - 1)
                    drUser("Groups") = groupslist
                End If

                If result.Properties.Contains("manager") Then
                    Dim managername As String() = Split(result.Properties("manager")(0), ",")
                    drUser("Manager") = Right(managername(0), Len(managername(0)) - 3)
                End If

                If result.Properties.Contains("sn") Then
                    drUser("FirstName") = result.GetDirectoryEntry.Properties("sn").Value
                End If

                If result.Properties.Contains("givenname") Then
                    drUser("LastName") = result.GetDirectoryEntry.Properties("givenname").Value
                End If

                If result.Properties.Contains("directReports") Then
                    Dim groups As DirectoryServices.ResultPropertyValueCollection = result.Properties.Item("directReports")
                    Dim groupslist As String = ""
                    Dim groupname As String = ""
                    For k As Int16 = 0 To groups.Count - 1
                        Dim fullname As String = result.Properties("directReports").Item(k).ToString
                        groupname = Left(Split(fullname, "=")(1), Len(Split(fullname, "=")(1)) - 3)
                        groupslist = groupslist &amp;amp; groupname &amp;amp; ","
                    Next
                    groupslist = Left(groupslist, Len(groupslist) - 1)
                    drUser("DirectReports") = groupslist
                End If

                If result.Properties.Contains("department") Then
                    drUser("Department") = result.GetDirectoryEntry.Properties("department").Value
                End If
                i += 1
                Users_Table.Rows.Add(drUser)
            Next
        Catch ex As Exception

        End Try
        Users_Table.AcceptChanges()
        dsCSIDir.Tables.Add(Users_Table)
    End Sub

    Public Sub CreateDataStructure()
        Users_Table.TableName = "Users"
        Console.WriteLine("Start of Create Columns at:  " &amp;amp; TimeOfDay)
        Users_Table.Columns.Add("index", GetType(Integer))
        Users_Table.Columns.Add("LoginID", GetType(String))
        Users_Table.Columns.Add("FirstName", GetType(String))
        Users_Table.Columns.Add("LastName", GetType(String))
        Users_Table.Columns.Add("DisplayName", GetType(String))
        Users_Table.Columns.Add("Title", GetType(String))
        Users_Table.Columns.Add("Company", GetType(String))
        Users_Table.Columns.Add("Email", GetType(String))
        Users_Table.Columns.Add("OfficePhone", GetType(String))
        Users_Table.Columns.Add("CellPhone", GetType(String))
        Users_Table.Columns.Add("Street", GetType(String))
        Users_Table.Columns.Add("City", GetType(String))
        Users_Table.Columns.Add("State", GetType(String))
        Users_Table.Columns.Add("PostalCode", GetType(String))
        Users_Table.Columns.Add("Manager", GetType(String))
        Users_Table.Columns.Add("Department", GetType(String))
        Users_Table.Columns.Add("Groups", GetType(String))
        Users_Table.Columns.Add("DirectReports", GetType(String))
        Console.WriteLine("End of Create Columns at:  " &amp;amp; TimeOfDay)
    End Sub

Ian McCaul12-May-09 9:32

Ian McCaul

12-May-09 9:32

An array will work just fine for what youre trying to do. Datasets and Datatables will add a lot more overhead and processing then what is required for what you are trying to do. There isnt anything wrong with what you are trying to do but again datatables and especially datasets will take more resources.

Also the code you are using for storing into a datatable is correct.

On a side note: Why do you need to cache everyone in AD, wouldnt an on-demand query of a specific person be much more viable and only get everyone when needed?

glumlord12-May-09 9:37

12-May-09 9:37

Ian McCaul wrote:
An array will work just fine for what youre trying to do. Datasets and Datatables will add a lot more overhead and processing then what is required for what you are trying to do. There isnt anything wrong with what you are trying to do but again datatables and especially datasets will take more resources.

Thanks for your response Ian.

What other structures can I store data in besides an Array and Dataset/Datatable?

I'm still learning quite a bit, and it may be that an Array is the best choice.

Thanks,

Ian McCaul12-May-09 9:43

Ian McCaul

12-May-09 9:43

Well an array in .NET is a very general term. You have

List
ArrayList
Dictionary
HybridDictionary
etc.

There are many arrays and each have certain benfits depending on the size of the collection you are going to use and what functionality you would like with the collection. Google the 4 I gave you and specifically their generic versions. It should help steer you in the right direction.

glumlord12-May-09 10:26

12-May-09 10:26

You have been of great assistance.

I will look into what you mentioned.

Thanks alot!

jarbo3a12-May-09 21:13

jarbo3a

12-May-09 21:13

thanks very much
but am sad to tell you that iam using C# and not familiar with VB
so maybe if you can supply me with some C code it would be good
sorry for the inconvinience
regards

glumlord13-May-09 8:35

13-May-09 8:35

Enumerating Active Directory Objects using C#[^]

Try that link, it may get you on the right track.

The code is very similar to what I use but in C#

Dave Kreskowiak12-May-09 9:43

Dave Kreskowiak

12-May-09 9:43

Well, you have 400 records, not 7200, unless your database is laid out funky... You have 7200 total fields of data.

The DataTable class has quite a large overhead compared to an Array. So, if an array works for you, great! If not, you may want to look into a Generic collection solution.

glumlord wrote:
Processor - While storing to the Datatable the processor is at 15-30%

30%?? Who cares??

glumlord wrote:
Memory - Even after flushing the memory using a class I have my application is taking 6MB now instead of roughly 800k-1024k it was before.

Memory as measured by what?? Please don't tell me you used TaskManager! It's kind of lying to you when it comes to .NET apps. You really have to understand what TaskManager is looking at. If you want more accurate numbers of what your APPLICATION is using, use Performance Monitor and the .NET Memory counters.

Task Manager is showing you what is RESERVED for your process, not necessarily "in use". .NET CLR applications run inside a "virtual machine", not unlike what Java uses. What you're seeing is the memory that is sitting in the Managed Memory Pool for your application inside the "virtual machine". The .NET CLR maintains a pool of memory to speed allocations of future objects. It tunes itself to try and predict how your app is going to use memory in the future, based on what it's done in the past. It gets this memory from Windows and adds it to the Managed Pool. If Windows starts running low on memory, it can ask the .NET CLR to free up however much memory it needs and the CLR will be more than happy to return whatever it can spare.

Basically, unless you have a condition where your app runs the machine out of memory, or is using excessive amounts of memory, you're worrying about nothing. The .NET CLR does a very good job of managing memory and playing nice with the rest of the system.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

glumlord12-May-09 10:24