🚀 go-pugleaf

Witam,
Mam taki kod

procedure TDBCard.SaveCard;
var
   BlobStream: TBlobField;
   FS: TFileStream;
begin
   try
     FS := TFileStream.Create(ExtractFilePath(Application.ExeName) 
+'StreamOut.xml', fmCreate);
     FXML.Position:=0;
     FS.CopyFrom(FXML, FXML.Size);
   finally
     FS.Free;
   end;

   with FZTable do
   begin
     Edit;
     BlobStream := FieldByName('CAR_CARD') as TBlobField;
     BlobStream.LoadFromStream(FXML);
     FieldByName('CAR_VERSION').AsInteger := 33;
     FieldByName('CAR_MODIFICATIONDATE').AsDateTime := NOW;
     Post;
   end;
end;

Z tym że ten kod poniżej jest tylko w formie znalezieniem problemu a 
chodzi o zapis xml do pola blob

try
     FS := TFileStream.Create(ExtractFilePath(Application.ExeName) 
+'StreamOut.xml', fmCreate);
     FXML.Position:=0;
     FS.CopyFrom(FXML, FXML.Size);
   finally
     FS.Free;
   end;
Tutaj robie zrzut xml do pliku bo myślałem że mam coś nie tak z 
przetwarzaniem xml zmieniam w nim jedna wartość jak wynika z pliku 
StreamOut wartość jest zmieniana za każdym razem i to jest jak 
najbardziej dzialanie ok

Problem wydaje się wynikać że nie zawsze jest aktualizowanie pole blob, 
czy spotkał się ktoś z Was z tym problemem

Pozdrawiam
J-23