Como almaceno un Stream en una Tabla?
 

Como almaceno un Stream en una Tabla?, y si se puede como y el campo de que tipo deberia ser.


Thank's

Tendrías que usar un campo BLOB o como sea que se llame este tipo de campos en la base de datos que olvidaste mencionar cuál es.

Delphi tratará este campo como un TBlobField que tiene métodos LoadFromStream y SaveToStream para leer u guardar un stream.

// Saludos

No veo inconveniente para almacenarlo en un campo blob. De hecho, el TBlobField cuenta con los métodos LoadFromStream y SaveToStream.

Hasta luego.

;)

No entiendo
 

En las tablas de Paradox no hay Blog, como le hago,

Creo que te funcionará el tipo Binary. Igualmente Delphi lo trata como TBlobField.

// Saludos

Incompatible de datos!!!????
 

Bueno, ya hice la tabla y todo, pero cuando le asigno la variable "Archivo", me dice

o sea, incompatible de datos, la pregunta es porque?, si segun lo de ahorita es un BlobField.

¿Que hice mal?

Value es una propiedad de tipo string. Funcionará así:

Código Delphi [-]
With TMoveData Do 
Begin
  Append;
  TMoveDataStream.LoadFromStream(Archivo);
  ApplyUpdates;
  Post;
End;

No se si hará falta primero posicionar Achivo al inicio, supongo que si.

Como verás, LoadFromStream es un método que tanto roman como yo habiamos mencionado ya antes. :mad:

Hasta luego.

;)

Hola:

Esto carga una foto en un campo blob de InerBase por medio de un stream. Mira a ver si hay algo que te interese.

Código Delphi [-]
procedure TFPalabras.TBCargaFotoClick(Sender: TObject);
var
  m, f: TStream;
  s: string;
begin
  //se abre picturedialog para cargar fichero foto que se coja
  if dlgOpenPicture.Execute then
    begin
      //modo edición
      DM.IBDSPalNue.Edit;
      //stream a partir campo Blob que contendrá la imagen
      m:= DM.IBDSPalNue.CreateBlobStream(DM.IBDSPalNueFOTO, bmWrite);
      //stream para acceder al archivo gráfico
      f:= TFileStream.Create(dlgOpenPicture.filename, fmOpenRead);
      //copiar de un stream a otro
      m.CopyFrom(f, f.Size);
      //coger formato foto y ponerlo en campo correspondiente
      s:= AnsiUpperCase(ExtractFileExt(dlgOpenPicture.FileName));
      if s='.JPEG' then
        s:= '.JPG';
      DM.IBDSPalNueFORMATOFOTO.AsString:= Copy(s,2,3);
      DM.IBDSPalNue.Post;
      DM.IBDSPalNue.Edit;
      //destruir streams
      f.Free;
      m.Free;
    end
end;

Luego de Guardar, Intento leerlo pero no puedo!
 

Luego de Guardar, Intento leerlo pero no puedo!, como le hago

Ya, resolvi mi problema!
 

Gracias, era un error de logica mia.

Gracias