hola brandolin:
prueba el codigo siguiente:
Código:
function StringsToBlob(aStrings:TStrings;aBlob:TBlobField):boolean;
Var
M:TMemoryStream;
begin
Result:=False;
M:=TmemoryStream.Create;
with TDataset(aBlob.GetParentComponent) do
try
aStrings.SaveToStream(M);
M.Seek(0,0);
Edit;
aBlob.LoadFromStream(M);
//Post; //no es conveniente hacerlo aqui ni olvidarse de el
Result:=True;
finally
M.Free;
end;
end;
function BlobToStrings(aStrings:TStrings;aBlob:TBlobField):boolean;
Var
M:TMemoryStream;
begin
Result:=False;
if aBlob.IsNull then exit;
M:=TmemoryStream.Create;
try
aBlob.SaveToStream(M);
M.Seek(0,0);
aStrings.LoadFromStream(M);
Result:=True;
finally
M.Free;
end;
end;
en mi web personal, en la sección código, tengo algun ejemplo más con blobs, pero no con TStrings