Delphi Programming question
What i want to do is to write a binary value (record called Settings) into the registry as a binary instead of to a file. It is 176 bytes in length and for the life of me i can't get the WriteBinaryData to work. I know this will be something simple. Could someone please post me a small sample of code that i need and what parms to put where to get this procedure working. and how do you tell it what binary data to write to it.
Thanks.
Dane.
--- Cut From Delphi 2 Help File.
Applies to
TRegistry object, TRegIniFile object
Declaration
procedure WriteBinaryData(const Name: string; var Buffer; BufSize: Integer);
Thanks.
Dane.
--- Cut From Delphi 2 Help File.
Applies to
TRegistry object, TRegIniFile object
Declaration
procedure WriteBinaryData(const Name: string; var Buffer; BufSize: Integer);
i have no code to give, thats what i need a small sample of code with the correct way ti write a record to a registry. i need to know the correct way to do this.
Regards,
Dane.
Regards,
Dane.
Hi again!
This really simple code does, hopefully, what you want.
procedure TMainForm.Button15Click(Se
type
TTestRec = record
Name : string[10];
Number: Comp;
end;
var
Ini: TRegistry;
Rec: TTestRec;
begin
Ini := TRegistry.Create;
if Ini.OpenKey('\software\Dan
then begin
with Rec do begin
Name := 'Dane';
Number := 8630007314.0;
end;
Ini.WriteBinaryData('TestB
FillChar(Rec, SizeOf(TTestRec), 0); // Clear record contents
Ini.ReadBinaryData('TestBu
with Rec do begin
Caption := Format('%s - %.0f', [Name, Number]);
end;
end;
Ini.Free;
end;
Enjoy!
/// John
This really simple code does, hopefully, what you want.
procedure TMainForm.Button15Click(Se
type
TTestRec = record
Name : string[10];
Number: Comp;
end;
var
Ini: TRegistry;
Rec: TTestRec;
begin
Ini := TRegistry.Create;
if Ini.OpenKey('\software\Dan
then begin
with Rec do begin
Name := 'Dane';
Number := 8630007314.0;
end;
Ini.WriteBinaryData('TestB
FillChar(Rec, SizeOf(TTestRec), 0); // Clear record contents
Ini.ReadBinaryData('TestBu
with Rec do begin
Caption := Format('%s - %.0f', [Name, Number]);
end;
end;
Ini.Free;
end;
Enjoy!
/// John
Not the solution you were looking for? Getting a personalized solution is easy.
Ask the ExpertsThanks for using Experts Exchange.
Create a free account to continue.
Limited access with a free account allows you to:
- View three pieces of content (articles, solutions, posts, and videos)
- Ask the experts questions (counted toward content limit)
- Customize your dashboard and profile
*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.