Odebranie dużego stringa z bazy danych

Odebranie dużego stringa z bazy danych
BU
  • Rejestracja:ponad 22 lata
  • Ostatnio:dzień
  • Postów:297
0

Witam,
Na początek kod:

Kopiuj
procedure TForm1.Button1Click(Sender: TObject);
var
  f: TextFile;
  s: string;
begin
  ADOQuery1.Active := False;
  ADOQuery1.SQL.Text := 'SELECT p1, p2, p2 FROM t FOR JSON AUTO, ROOT (''towary'');';
  ADOQuery1.Active := True;
  s := ADOQuery1.Fields[0].AsString;
  AssignFile(f, 'result.json');
  Rewrite(f);
  Writeln(f, s);
  CloseFile(f);
end;

Kod w sumie działa, ale do pliku zapisywane jest tylko 2035 bajtów. Co zrobić, żeby zapisane było wszystko??


Pozdrawiam
Buster
woolfik
  • Rejestracja:ponad 17 lat
  • Ostatnio:około 2 godziny
  • Postów:1597
0

Na moje oko to obcina Ci z powodu typu STRING ja bym spróbował pokombinować z typem BLOB

BU
  • Rejestracja:ponad 22 lata
  • Ostatnio:dzień
  • Postów:297
0

Już ogarnąłem. Okazało się, że wynik podzielony jest na rekordy. Zapuściłem w pętli i pobrało wszystko. A swoją drogą to ciekawostka.


Pozdrawiam
Buster

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.