Fehlermeldung "Nicht erkannter Imap4 Response Header"

[DevBoy]

Hallo,

oh Indy, oh Indy....

Folgende Formel:

genügend Zeit + starke Nerven = Indy-Komponenten benutzen.

Guckste hier:

Delphi-Quellcode:

procedure TIdIMAP4.TaggedReplyConvertToConst;
begin
    case PosInStrarray(LastCmdResult.TextCode,VALID_TAGGEDREPLIES) of
      0 : LastCmdResult.NumericCode := wsOK;     {OK}
      1 : LastCmdResult.NumericCode := wsNo;     {NO}
      2 : LastCmdResult.NumericCode := wsBAD;    {BAD}
      3 : LastCmdResult.NumericCode := wsPreAuth; {PREAUTH}
      4 : LastCmdResult.NumericCode := wsBYE;    {BYE}
      5 : LastCmdResult.NumericCode := wsContinue;{+}
    else
      raise EIdException.Create(RSUnrecognizedIMAP4ResponseHeader);
    end;
end;

Kopf hoch