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...
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
--------------------------------------------
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 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...
TRegistry.ReadString
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\')...
I personally keep my units until i am very sure the functions in them are running perfectly. This is very helpful for debugging. When my program appears complete, I convert my units to DLL's. When many users are using your software, it is much easier to send them an updated DLL than to recompile...
The TCanvas property is included in the TImage property.
Review the following TCanvas property for more info.
property Pixels[X, Y: Integer]: TColor;
Var anImage : TImage;
OriginalColor : TColor;
To get pixel color,
OriginalColor := anImage.Canvas.Pixels[x,y];
To set pixel color...
Thank you MalcolmW,
I am using a strange Database-engine (BDE).
The column number method did not work for me, although I did find out what does work.
It is as follows:
SELECT aTable."Date" from aTable
Thanks a million for your input.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.