delphi
var Jpg: TJpegImage; Stream: TMemoryStream; // grabar la foto // UTILIZAR LIBRERIA jpeg !!! begin begin Jpg := nil; Stream := nil; try modulodatos.visitantesADO.open; modulodatos.visitantesADO. Append; // Crea el Tjpeg y lo carga desde un archivo Jpg := TJpegImage. Create; Jpg.LoadFromFile('c:\video\temp\imagen1.jpg'); // Guarda la imagen en el Stream Stream := TMemoryStream. Create; Jpg. SaveToStream(Stream); Stream. Position := 0; // Load the Blob field from the stream TBlobField(modulodatos.visitantesADOfoto1).LoadFromStream(Stream); // resto de los campos Deletefile('c:\video\temp\imagen1.jpg'); except jpg. Free; Stream. Free; raise; end; jpg. Free; Stream. Free; end;
Recuerden que debe ser un campo BLOB, o LONG BLOB ( por si acaso ). jeje
Saludos