6 respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Determinar el tamaño de un Campo Blob en una Tabla.

delphi

Function GetBlobSize(Field: TBlobField): Longint;
	begin
	 with TBlobStream.Create(Field, bmRead) do
	  try
	   Result := Seek(0, 2);
	  finally
	   Free;
	  end;
	end;

Ejemplo de uso:

delphi

procedure TForm1.Button1Click(Sender: TObject);
	begin
 	   Edit1.Text := IntToStr(GetBlobSize(Notes));
	end;

Saludos!

[Delphius]

Tengo mi duda... ¿Eso funciona para todo tipo de BLOB e indepentemente del motor de base de datos?

Porque creo que cada motor maneja los BLOB a su manera, como así también dependerá de lo que se pase al BLOB... No es lo mismo que al BLOB se incorpore una imagen, que un archivo de texto.

 

Esto lo pregunto porque se me hace que no necesariamente en los 2 primeros bytes esté almacenado el tamaño del archivo.

 

Saludos,

[sir.dev.a.lot]

Hola, @Delphius

 

Pienso que habra que probar con cada Gestor, en dado caso no funcione como se espera, debera crearse

delphi

Function GetBlobSize2

hasta

delphi

Function GetBlobSizeN

hasta tener la solucion...

 

Saludos

[sir.dev.a.lot]

Esta es una forma de obtenerla para SDAC

sql

SELECT nombrecampo, datalength(BLOB) AS total_size FROM dbo.tutabla;

Saludos!

[Agustin Ortu]

No es mas practico usar el metodo TField.DataSize

 

Note: For TBlobField objects, DataSize returns the size of the blob object, if it can be determined.

Editado por Agustin Ortu, 25 noviembre 2016 - 05:24 .

[sir.dev.a.lot]

Hola, @Agustin Ortu. 

 

Por alguna razon la parte de codigo que has expuesto y la parte de el post al inicio el #01, no tienen ningun efecto...   Siempre retornan el valor de 0 usando SDAC. 

delphi

ShowMessage(IntToStr(MSQuery1.FieldByName('blobfield').DataSize));

Mientras que usando el Post #4, devuelve el tamaño. 

 

Todavia NO he probado con motores de Base de Datos distintos... pero me intrigo a seguir investigando para mostrar conclusiones.

 

Saludos.

[Agustin Ortu]

Habria que ver que metodo se esta ejecutando, ya que se supone que es un metodo virtual de la clase TField. Es posible que no se haya creado una instancia de TBlobField y lo haya detectado de otra manera

Editado por Agustin Ortu, 28 noviembre 2016 - 02:41 .