DBGrid/TField and memofields

Hi

I'm trying to print/display memofields from a DBGrid, but I just seem to get stuck whatever I do to read the memofield.

I the DBGrid (wwDBGrid) to display columns from SQL-statements (which the
end-user defines) and would then like to print the grid. I've only got a
problem with the memofields-columns (which displays just displays "(Memo)").

Is this the correct way to do it? And what do I need to display/print the memofield?

   if Fields[FieldNo].DataType = ftMemo then
   begin
     with Fields[FieldNo] do
     begin
       GetMem(TheField, Datasize);   { Allocate space }
       if GetData(TheField) then
       begin

          how do I use the "TheField"?
          how can I extract the data?


       end;
       FreeMem(TheField,DataSize);
     end;
   end;

I just think I have tried every possible way to extract the data from
"TheField", but I still haven't got the hang of it.

Can you please help me?

Jakob Hoffmann

alijakobAsked:
Who is Participating?
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.

hkelmerCommented:
why don´t you use InfoPower or DBpower or any other vcl that
has this special dbgrid with memos?
just check their demo´s

0
ZonnaldCommented:
alijakob,

I have a better ***Free*** solution but really could use the points - depending on the size of the MEMO field's data.

Please assess hkelmer's answer if you will.

Zonnald
0
alijakobAuthor Commented:
Hello

I have checked the InfoPower demos - there's no information about processing the contents of memofields.

My application is based on the InfoPower wwDBGrids where I do use the facility to display memofields. Using the wwDBGrids, it's not possible to print/use the contents of the memofields directly.

I have however, found a solution to my problems which seems to work - it'll only show the first 255 characters of the memofield (but the whole string is there!):

FieldSize   : LongInt;      { Will hold the fieldsize }
bstTheField : TBlobStream;  { The connection between us and the memofield }
TheField    : PChar;        { Will hold the contents read from the memofield }

bstTheField := TBlobStream.Create((Fields[FieldNo] as TMemoField),bmRead);
FieldSize   := bstTheField.Seek(0,2);  { Go to end of memofield to find size }
GetMem(TheField,FieldSize + 1);  { Allocate memory for contents }
if (TheField = nil) then raise Exception.Create('Not enough memory');
bstTheField.Seek(0,0);  { Go to start of field before reading contents }
FillChar(TheField^,FieldSize + 1,#0);  { Initialize the string }
bstTheField.Read(TheField^,FieldSize);  { Read contents of field }
showmessage('memo='+strpas(TheField)); {only shows the first 255 characters}

Jakob
0
icampbe1Commented:
I'm gonna step out on a limb here and hope that this is a sensible answer.  I am using a DBCntrlGrid very successfully for this purpose.  It is a very good solution.

The DBCtrlGrid lets to put compnents of your own choice on every 'record' of the dataset.  This includes a DBMemo component.  It kind of like designing your own little form for each record.  It is very slick and I find the result look better than a plain DBGrid.

Hope this is acceptable,

Ian C.
0

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
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.