Delphi
Delphi

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);

LVL 2

Dane PickeringAsked: 1997-06-20

Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

Experts Exchange Solution brought to you by

Enjoy your complimentary solution view.

Get every solution instantly with Premium. Start your 7-day free trial.

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

LVL 4

erajojCommented: 1997-06-23

Send the code and i'll have a look.

/// John

LVL 2

Dane PickeringAuthor Commented: 1997-06-23

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.

LVL 4

erajojCommented: 1997-06-23

Hi again!

This really simple code does, hopefully, what you want.

procedure TMainForm.Button15Click(Sender: TObject);
type
TTestRec = record
Name : string[10];
Number: Comp;
end;
var
Ini: TRegistry;
Rec: TTestRec;
begin
Ini := TRegistry.Create;
if Ini.OpenKey('\software\Dane\Recs', True)
then begin
with Rec do begin
Name := 'Dane';
Number := 8630007314.0;
end;
Ini.WriteBinaryData('TestBuffer', Rec, SizeOf(TTestRec));

FillChar(Rec, SizeOf(TTestRec), 0); // Clear record contents

Ini.ReadBinaryData('TestBuffer', Rec, SizeOf(TTestRec));
with Rec do begin
Caption := Format('%s - %.0f', [Name, Number]);
end;
end;
Ini.Free;
end;

Enjoy!

/// John

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial

LVL 2

Dane PickeringAuthor Commented: 1997-06-23

Ok, well that worked and that is exactly the same way that i was trying to get it to work. Umm, i couldn't see any difference, but al least it works. So you can have the points!

Thanks mate!

Regards,
Dane