How about this (by Peter Below):
Procedure GetArrayData( Var WR: WorkRec );
Var
bs: TBlobstream;
Begin
Assert( assigned( WR.WRBlobFld ));
bs:= TBlobstream.Create( WR.WRBlobFld, bmRead );
try
bs.Read( WR.WRArrayFld, sizeof(WR.WRArrayFld ));
finally
bs.free;
end;
End;
To put the data back into the field you put the dataset in Edit
mode and call
Procedure PutArrayData( Const WR: WorkRec );
Var
bs: TBlobstream;
Begin
Assert( assigned( WR.WRBlobFld ));
bs:= TBlobstream.Create( WR.WRBlobFld, bmWrite );
try
bs.Write( WR.WRArrayFld, sizeof(WR.WRArrayFld ));
finally
bs.free;
end;
End;
Good luck
Omer
----- Original Message -----
From: Ercan Erdo�an
To: [email protected]
Sent: Tuesday, April 26, 2005 11:14 AM
Subject: [delphi-en] dynamically adding field to paradox table at runtime
hi all,
i want to add blob field to paradox table, (not field value)
how can i this?
thanx for help now
---------------------------------
Do you Yahoo!?
Yahoo! Small Business - Try our new resources site!
[Non-text portions of this message have been removed]
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
------------------------------------------------------------------------------
Yahoo! Groups Links
a.. To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
b.. To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
c.. Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
[Non-text portions of this message have been removed]
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
