Hola tarco35.
Código Delphi
[-]
procedure AddMemoToBlob(DataSet: TDataSet; const aFieldName: string; Memo:TMemo);
var
Stream: TStream;
i : Integer;
str : string;
begin
Stream := TMemoryStream.Create;
try
TBlobField(DataSet.FieldByName(aFieldName)).SaveToStream(Stream);
Stream.Seek(0, soCurrent);
for i:= 0 to Memo.Lines.Count - 1 do
begin
str := Memo.Lines[i] + #10; Stream.Write(str[1], Length(str));
end;
Stream.Seek(0, soFromBeginning);
DataSet.Edit;
TBlobField(DataSet.FieldByName(aFieldName)).LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
Ejemplo de uso:
Código Delphi
[-]
begin
AddMemoToBlob(DataSet1, 'CAMPO_BLOB', Memo1);
...
Saludos