de Blob a ????

[brandolin]

roman, ya probe esa opcion y me larga una troncha de errores...

vere con las otras opciones, pero el de las RX no me gusta demasiado... buscaba algo mas directo...

sigamos intentando muchachos, graciasssssss

[roman]

Empezado por brandolin

ya probe esa opcion y me larga una troncha de errores...

¿y exactamente cuáles son los errores?

// Saludos

[guillotmarc]

Empezado por brandolin

el de las RX no me gusta demasiado... buscaba algo mas directo...

¿ Más directo ?.

[Julià T.]

hola brandolin:

prueba el codigo siguiente:

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