Explico Detalledamente el problema:
Tengo una tabla que tiene un Campo BLOB, en el mismo deseo guardar los datos de un Archivo, hago todo lo que normalmente hago para hacerlo todo funciona bien el unico problema es que
NO GUARDA el valor en la BD.
Plataforma:
DELPHI 2009
FIREBIRD 2.1
COMPONENTES IBX
Describo la Rutina del programa, incluso estan en comentario varias formas que probe:
Código Delphi
[-]
procedure TBioFormatos.wwDBGrid2IButtonClick(Sender: TObject);
Var
Archivo:AnsiString;
Campo,ArcMemo:TStream;
Numero:Integer;
Stream: TMemoryStream;
FileData : TStringList;
begin
inherited;
if Formatos.RecordCount>0 then
if Application.MessageBox('Desea Sincronizar este Reporte en la Base de Datos..?','VALIDAR',MB_YESNO+MB_ICONEXCLAMATION)=IdYes Then
Begin
Try
Screen.Cursor:=crHourGlass;
LockWindowUpdate(Handle);
Archivo:=Global.RutaReporte+TRIM(FormatosNOMARCHI.Value)+'.fr3';
if FileExists(Archivo) Then
Begin
Diseno.Close;
Diseno.Open;
if Diseno.RecordCount>0 then
Begin
Diseno.Edit;
DisenoDISENO.LoadFromFile(Archivo);
Diseno.Post;
Diseno.Transaction.CommitRetaining;
End;
End;
Finally
Campo.Free;
ArcMemo.Free;
fileData.Free;
Stream.Free;
Diseno.Close;
Screen.Cursor:=crArrow;
LockWindowUpdate(0);
ShowMessage('El Archivo Fue Sincronizado ... Verifique ');
End;
End;
end;