Hola chicos estoy desarrollando una aplicación en Delphi 2010 y como gestor de BD MSSql Server 2008 y llevo días intentando guardar fotos con el formato .jpg o .jpeg en un campo Varbinary(max), entre las búsquedas realizadas dentro y fuera de este foro encontré este código para extraer la
Código Delphi
[-]function TForm1.GetFieldToJPG(FieldName: String): TJPEGImage;
var
Stream: TMemoryStream;
begin
Stream := TMemoryStream.Create;
Result := TJPEGImage.Create;
with ADOTable1 do
begin
try
TBlobField(FieldByName(FieldName)).SaveToStream(Stream);
Stream.Position := 0;
if (Stream.Size > 0) then
Result.LoadFromStream(Stream)
else
Result := nil;
finally
Stream.Free;
end;
end;
end;
y cargo la foto
Código Delphi
[-]Image1.Picture.Assign(GetFieldToJPG('Photo'));
Lo que no logro es crear una función para guardar la imagen en la base de datos en el campo Photo de tipo Varbinary(max).
alguien me pudiera ayudar,
gracias de antemano.