🚀 go-pugleaf

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