🚀 go-pugleaf

W dniu niedziela, 14 stycznia 2018 17:07:18 UTC+1 użytkownik J-23 napisał:
> W dniu 14.01.2018 o 16:44, zpksoft pisze:
> > W dniu sobota, 13 stycznia 2018 21:26:11 UTC+1 użytkownik J-23 napisał:
> >> 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
> > 
> > A jakiś commit po post?
> > 
> 
> Tutaj mam autocommit to raz dwa np zmieniam wartości 'CAR_VERSION' i to 
> się zmienia a zawartość pola blob nie ulega zmianie
> 
> Pozdrawiam
> J-23

Z tego co widzę, to otwierasz strumień, ustawiasz go na 0 a następnie wrzucasz do pliku.
Potem chcesz załadować go do bloba, ale licznik jest na końcu.
Spróbuj przed ładowaniem do bloba zrobić jeszcze ras seek(0)

Paweł