Thanks for the help Nigel. Your code worked perfectly for a normal
TTable, but I am using ODBCExpress, and for some reason it wouldn't let
me typecast the field as a TMemofield or TBlobfield. But I got on the
right track and found the CreateBlobStream() function which does the job
I need.
procedure ReadStringFromField(SourceDataSet: TOEDataset; SourceField:
String; Slist: TStrings);
var
Stream: TStream;
begin
Stream:=SourceDataSet.CreateBlobStream(SourceDataSet.FieldByName(SourceF
ield),bmRead);
Slist.LoadFromStream(Stream);
Stream.Free;
end;
procedure WriteStringToField(SourceDataSet: TOEDataset; SourceField:
String; Slist: TStrings);
var
Stream: TStream;
begin
SourceDataSet.Edit;
Stream:=SourceDataSet.CreateBlobStream(SourceDataSet.FieldByName(SourceF
ield),bmWrite);
Stream.Write(Slist.GetText^,Strlen(Slist.GetText));
SourceDataSet.Post;
Stream.Free;
end;
-----Original Message-----
From: Nigel Tavendale [ mailto:[EMAIL PROTECTED]]
Sent: Monday, 1 February 1999 10:06
To: Multiple recipients of list delphi
Subject: Re: [DUG]: Memo strings
Putting In BlobStreams is fairly easy, just remeber to create and
destroy them.
e.g.
procedure TfmMain.Blob;
var
slDesc : TStringList;
bDesc : TBlobStream;
begin
{get contentsout of memo field in Table 1}
slDesc:=TStringList.Create; //create string list
bDesc:=TBlobStream.Create(TMemoField(Table1.FieldByName('FieldName')),b
mRead); /*Create Blobstream for reading
slDesc.LoadFromStream(bdesc); /* fill string list with blobstream
contents
bDesc.Free; /*destroy blobstream
{load contents into memo field of Table 2}
try
bDesc:=TBlobStream.Create(TMemoField
(Table2.FieldByName('FieldName')),bmWrite); /*create blobstream for
writing
bDesc.Write(slDesc.GetText^,StrLen(slDesc.GetText));/*Load
blobstream with string list contents
finally
bDesc.Free; /* destroy blobstreram
slDesc.Free; /* destroy stringlist
end; /* try - finaly block
end;
Nigel Tavendale
-----Original Message-----
From: Scott Cree < [EMAIL PROTECTED]>
To: Multiple recipients of list delphi < [EMAIL PROTECTED]>
Date: Friday, 29 January 1999 15:10
Subject: [DUG]: Memo strings
Hi All,
What is the best way to load a memo field (from an Access db) into a
stringlist object, and later save the stringlist back into the memo
field.
I have looked at the LoadFromStream method for TStrings, but I haven't
worked with streams yet, and I'm still trying to get to grips with them.
Cheers
__________________________
Scott Cree
Knowlysis Limited
Phone: +649-358-0017
Fax: +649-358-3534
E-Mail: [EMAIL PROTECTED]
------------------------------------------------------------------------
---
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
