Recent content by Sisto

I have an ActiveX component (DSIClientX) in my application. A call to ServerIPConfig is supposed to return an XML result of type BSTR (WIDESTRING). I am not getting my result string. XMLResult : WideString; XMLResult := DSIClientX.ServerIPConfig('b2.backuppay.com;X1.mercurypay.com',0) Does...

I recently installed Delphi 6 and I need to convert some projects from Delphi 3 to 6. Whenever I try to build my project using Delphi 6 I get the message: [Fatal Error] SQLEditor.dpr(17): Unit Forms was compiled with a different version of Math.Max SQLEditor is the name of my project. Any...

Thankyou ifincham. FYI: I have Debian and I found the error in /etc/init.d/bootmisc.sh Something I added a long time ago, just forgot about it.

If the unique records in your daily CSV file is going to be appended to another file, a database file, then I would consider using some database components. Otherwise the first method you described is fine for the sakes of simplicity. In my opinion. Some methods and declarations which might be...

The last sceen message is: Cleaning: /tmp /var/lock /var/run <then the computer locks up> Most start-ups the computer freezes at this point. Sometimes it gets past this point and the server is up and running normally. Does anyone know why this is happening or how to debug the problem. Sisto

Your in luck you have a second example. Good Luck. { The CLasses unit is required in the Uses clause Sample call: Be sure you have a TStrings component initialized before making this call: Var MyDocuments : TStrings; MyDocuments := TStringList.create...

Some changes to the Registry do not take effect until the system is restarted. I want to know if there is a command to have the system reload the registry after changes are made to it. Thanxs, Sisto

What is the command to reload the registry? Thanxs a million. :)

-------------------------------------------- Here is how I convert my units to DLL’s -------------------------------------------- Unit RsrFMgmt; Interface uses ShareMem, SysUtils; function Func1(Var p1,p2,p3 : String) : Boolean; function Func2(a,b : Integer; Var c,d : Integer) : boolean...

I'm not 100% sure I fully understand your question, but the following functions should help you acomplish your task: Var aDBMemo : TDBMemo; TotalLines, LineLength : Integer; aChar : Char; aLine : String; To get the total number of lines in your memo: TotalLines :=...

Thankyou TealWren. I figured it out. The second parameter was left out due to a typo. The parameter that seems to work is as follows: RegistryDB.OpenKey('.lay/',false); aStringValue := RegistryDB.ReadString(''); Thanks again.

If the tests are that simple why not just use: var clr, newClr : TColor; begin if Clr = $00FFFFFF then newClr := $00000000 Hint: Put your cursor on the TColor text in your IDE and press Ctrl-F1 $00FFFFFF can also be represented as clWhite $00000000 = clWhite end;

I normally use Trunc myself: Var aReal : Real; aInt : Integer; aInt := Trunc(aReal); If aReal is within the integer range!

Oops, Don't know how that happened. Ignore my reply.

I am trying to read the (Default) value of the key .lay and the following does not work. Any suggestions? I am trying the following: Var RegistryDB : TRegistry; aStringValue : String; ... RegistryDB.RootKey := HKEY_CLASSES_ROOT; {working} RegistryDB.OpenKey('.lay\'); {working} aStringValue...