Ver Mensaje Individual
  #2  
Antiguo 26-05-2010
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.044
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Si haces una búsqueda en clubdelphi seguro que encuentras sobre ese tema porque se ha tratado en muchas ocasiones.
Independientemente que sea con zeoslib, ibx, fibplus, etc.
Aquí tienes un documento en formato pdf bastante completo que también te explica lo que necesitas sobre los campos blob.

Más o menos es algo así:
Código Delphi [-]
  Var TheStream : TMemoryStream;
Begin
  TheStream := TMemoryStream.Create;
  Try
    Image1.Picture.Bitmap.Savetostream(TheStream);
    With qryBlobInsert do 
    Begin
      Sql.Text := 'INSERT INTO EVENTS (EventNo,EVENT_PHOTO) VALUES (100,:ThePicture)';
      Params.Clear;
      Params.CreateParam(ftBlob,'ThePicture', ptInput);
      ParamByName('ThePicture').LoadfromStream(TheStream,ftBlob);
      ExecSQL;
    End;
  Finally
    TheStream.Free;
  End;
End;

Y en todo caso... explícanos qué es lo que no te funciona, cómo lo estás haciendo, etc.
Responder Con Cita