Problem mit TidHTTP in Thread

[bailey]

Zitat von Angel4585:

hat sich erledigt, ich hatte eine Komponente des Hauptformulars in der Prozedur mit der TIdHTTP-Kompo verwendet, jetz hab ich die rausgeschmissen un es funktioniert

Ich verwende keine Kompo aus der hauptform in der Procedure, aber in der classe...
hängt es eventuell damit...!?


Das ist die Procedure

Delphi-Quellcode:

procedure TmySqlClass.PSaveToSQL(NewArray   : TList; ID   : integer);
var
    i                             : integer;
    Response                      : String;
    LParams                       : TStringlist;
    n                             : string;


begin
  LParams := TStringlist.Create;
  LParams.Add('QUERY=SAVE');
  n := inttostr(0);
  try
      for i := 0 to NewArray.Count -1  do
      begin
          if (TDateien(NewArray.items[i]^).Available = false) then
              begin
              LParams.Add( 'id'+n+'='+inttostr(ID));
              LParams.Add( 'filename'+n+'='+TDateien(NewArray.items[i]^).Filename);
              LParams.Add( 'size'+n+'='+inttostr(TDateien(NewArray.items[i]^).size));
              LParams.Add( 'typ'+n+'='+StringReplace(TDateien(NewArray.items[i]^).typ,'.','',[rfReplaceAll]));
              LParams.Add( 'sprache'+n+'='+TDateien(NewArray.items[i]^).Leanguage);
              LParams.Add( 'erstellt'+n+'='+FormatDateTime('yyyy-mm-dd hh:mm:ss',   TDateien(NewArray.items[i]^).Create));
              LParams.Add( 'geaendert'+n+'='+FormatDateTime('yyyy-mm-dd hh:mm:ss', TDateien(NewArray.items[i]^).Modified));
              LParams.Add( 'md5'+n+'='+TDateien(NewArray.items[i]^).MD5);
               n:= inttostr(strtoint(n)+1);
              //sleep(3);
              end;  // if
      end; // for
     response  := IdHTTP1.Post('http://www.server.de/delphi.php', LParams);

     //showmessage(response);
    except
        on e:exception do showmessage(e.Message);
    end;
    LParams.Free;

end;