🚀 go-pugleaf

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?