Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#25

Re: serial von mysql db abfragen

  Alt 6. Jun 2008, 18:15
In den Code Schnippseln oben sind noch Fehler drin. Vorallem wird kein Speicher im String "ress" reserviert.
Aber es geht auch viel einfacher:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
    res: TStringStream; // kein MemoryStream
    ress: string;
begin
   res := TStringStream.Create;
   try
     idhttp1.Get('xxx?serial=1233', res);
     edit1.Text := res.DataString;
   finally
     res.Free;
   end;
end;
E2171 Auf Variable 'res' kann wegen Optimierung nicht zugegriffen werden
==> hier müsste man bei den Projektoptionen / Compiler die Optimierung ausschalten und das Projekt neu erzeugen.
aber das ist mit obigem Code ja nicht mehr nötig...
Andreas
  Mit Zitat antworten Zitat