Socket error #11004

[Pseudemys Nelsoni]

moin,

weiss jemand, wie ich auf diese fehlermessage reagieren kann? bzw diese durch eine andere ersetzen? eine exception ist es nicht oder? arbeite mit der idHTTP kompo

[NeoXpert]

doch man kann mit ner Exception drauf reagieren allerdings weiß ich nicht mehr wie

[Pseudemys Nelsoni]

was für eine ist es denn genau?

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
  sl1: TStringList;
  s: string;
  laufVar: integer;
begin
  if (Edit1.Text <> '') AND (length(Edit1.Text) > 2) then
  begin
    if (Edit2.Text <> '') AND (length(Edit2.Text) > 2) AND not (edit2.Text[1] in ['0'..'9']) then
    begin
      if length(Edit3.Text) > 7 then
      begin
        if (length(Edit4.Text) > 0) AND (Pos('@', Edit4.Text) > 0) AND (Pos('.', Edit4.Text) > 0) then
        begin
          Button1.Enabled := false;
          Button2.Enabled := false;
          for laufVar := 1 to 4 do
          TEdit(FindComponent('Edit' + InttoStr(LaufVar))).Enabled := false;
          StatusBar1.Panels[0].Text := 'Trying to register nick...';
          sl1 := TStringList.Create;
          with sl1 do
          begin
            Add('name=' + Edit1.Text);
            Add('nick=' + Edit2.Text);
            Add('pass=' + Edit3.Text);
            Add('cpass=' + Edit3.Text);
            Add('email=' + Edit4.Text);
            Add('cemail=' + Edit4.Text);
          end;
          Try
            Try
              idAntifreeze1.DoProcess;
              s := idhttp1.Post('http://www.cncreloaded.net/index.php?action=signup', sl1);
              sl1.Free;
              if Pos('Your nickname has been registered and verified.', s) > 0 then
              begin
                ShowMessage('Your nickname has been registered and verified.');
                Form2.Close;
              end;
              if Pos('The nickname you have chosen is already in use. Please select another.', s) > 0 then
              begin
                ShowMessage('The nickname you have chosen is already in use. Please select another.');
                Edit2.Font.Color := clRed;
              end;
              if Pos('You have registered the maximum number of nicknames allowed.', s) > 0 then
              ShowMessage('You have registered the maximum number of nicknames allowed.');
            except
            case ??? of
              11004: ShowMessage('hi');
            end;
          Finally
            Button1.Enabled := true;
            Button2.Enabled := true;
            for laufVar := 1 to 4 do
            TEdit(FindComponent('Edit' + InttoStr(LaufVar))).Enabled := true;
            StatusBar1.Panels[0].Text := '';
          end;
        end
        else
        begin
          ShowMessage('Enter a correct email address.');
          Edit4.Font.Color := clRed;
        end;
      end
      else
      begin
        ShowMessage('Your password must be exactly 8 characters in length.');
        Edit3.Font.Color := clRed;
      end;
    end
    else
    begin
      ShowMessage('You must specify a nickname, it must be greater than or equal to 3 characters long.' + #13#10
                + 'It cant begin with a number!');
      Edit2.Font.Color := clRed;
    end;
  end
  else
  ShowMessage('You must specify a name, it must be greater than or equal to 3 characters long.');
end;

da wo "???" steht muss das richtige hin

[Skyruner2]

ich hab das gleiche problem, nur mit dem IdFTP

[Skyruner2]

hab mal nen bissel rum ge-surft, und hatte auch prompt ne antwort (hab jetyt allerdings 250 punkte weniger bei www.experts-exchange.com :P)

naja versuch mal mit

Delphi-Quellcode:

    try
      IdFTP1.Connect;
    except
      on E: EIdProtocolReplyError do 
         showmessage(E.Message); 
    end;

rumzuspielen :D

edit: oder

Delphi-Quellcode:

    try
      IdFTP1.Connect;
    except
      on E: Exception do 
         showmessage(E.Message); 
    end;

/edit