Socket Error 10054

[kuba]

Das sieht in der MySQL Datenbank so aus:

878 195.37.252.58 4347D5F07EE54ED062EC57F0B956A19E 14.03.2012 13:09:03 [e-mail]


und im SourceCode so:

Delphi-Quellcode:

procedure Aktivierung;
var
  Host       : String;
  data       : TStringList;
  Response   : String;
  EMAIL      : string;
begin
  EMAIL := InputBox('subscribe to newsletter please e-mail address', 'mail: ', '');
  data := TStringList.Create;
  try
    data.Values['GetPCIDMD5'] := GetPCIDMD5;
    data.Values['Set_Time'] := DateToStr(Now())+' '+TimeToStr(Now());
    data.Values['Meine_IP'] := MeineIP;
    data.Values['E_MAIL'] := EMAIL;
    try
      Response := IdHTTP.Post(Manufacturer_URL+'/data/freeware_eid.php', data);
    except
      on E: Exception do
      ShowMessage('ERROR: ' + E.Message);
    end;
  finally
    data.Free;
  end;
  if Response = '' then showmessage('activation unsuccessful !');
  
  //hier kommt noch was zur Aktivierung des Programm ...
  //


end;

KUBA