🚀 go-pugleaf

W dniu 13.01.2018 o 21:26, J-23 pisze:
> 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
> 

Jest błąd w Zeosach (Nie sądze by to było zamierzone działanie) - 
poniższy kod działa prawidłowo:

procedure TDBCard.SaveCard;
var
   BlobStream: TBlobField;
begin
   with FZTable do
    begin
      Edit;
      BlobStream := FieldByName('CAR_CARD') as TBlobField;
      BlobStream.Clear;
      Post;
      Edit;
      BlobStream := FieldByName('CAR_CARD') as TBlobField;
      FXML.Position:=0;
      BlobStream.LoadFromStream(FXML);
      FieldByName('CAR_VERSION').AsInteger := 33;
      FieldByName('CAR_MODIFICATIONDATE').AsDateTime := NOW;
      Post;
    end;
  end;

Nie znam źródeł Zeos może w wolnej chwili zajrzę do tego ale prośba do 
Miaba (bo o ile dobrze kojarzę to on zajmuje się jak nie develop to 
testami Zeosa) by zwrócił na powyższy błąd uwagę

Pozdrawiam
J-23