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

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

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

Ejemplo de uso:

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

Saludos!

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,

Hola, @Delphius

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

Function GetBlobSize2

hasta

Function GetBlobSizeN

hasta tener la solucion...

Saludos

Esta es una forma de obtenerla para SDAC

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

Saludos!

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.

Edited by Agustin Ortu, 25 November 2016 - 05:24 PM.

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. 

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.

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

Edited by Agustin Ortu, 28 November 2016 - 02:41 PM.