search

viniciussanchez / dataset-serialize

JSON to DataSet and DataSet to JSON converter for Delphi and Lazarus (FPC)
MIT License
645 stars 156 forks source link

Erro no lazarus #205

Closed mbertolani closed 10 months ago

mbertolani commented 1 year ago

Vinicius, segue duas modificações que precisei fazer pra funcionar o import no lazarus

funcao LoadFieldsFromJSON

linha 644 LFieldDef.DataType := TDataSetSerializeUtils.GetDataType({$IF DEFINED(FPC)}AJSONObject.Items[I]{$ELSE}LJSONPair.JsonValue{$ENDIF}); LFieldDef.Size := 0; // Adicionei essa linha porque estava dando erro dizendo que campos Integer, Float, Date tinham tamanho invalido com valor 20

funcao LoadBlobFieldFromStream

linha 608 // TBlobField(AField).AsString := DecodeStringBase64(LStringStream.DataString); TBlobField(AField).LoadFromStream(LStringStream); // troquei a forma de carregar o valor porque estavam dando erro e ficando vazio

mbertolani commented 1 year ago

faltou alterar a linha 604

funcao LoadBlobFieldFromStream

{$IF DEFINED(FPC)} LStringStream := TStringStream.Create(DecodeStringBase64((AJSONValue as TJSONString).Value)); {$ELSE} LStringStream := TStringStream.Create((AJSONValue as TJSONString).Value); {$ENDIF}

viniciussanchez commented 1 year ago

Oi, gostaria de enviar um pull request com o ajuste?

mbertolani commented 11 months ago

enviado

viniciussanchez commented 11 months ago

Obrigado

mbertolani commented 11 months ago

porque a versao do git esta diferente da versao baixada pelo Boss ?

viniciussanchez commented 10 months ago

@mbertolani Vou liberar uma nova versão hoje e ai ficará tudo igual.