Indy-TCP-Server aufsetzen und Dateien versenden

[omata]

Moin,

schönes Tutorial.

Noch schöner wäre allerdings gewesen, wenn die Statusinformationen nicht einfach als Zahl + Kommentar im Code auftauchen würden. Genau dafür sind Konstanten da, die den Quellcode sprechender machen.

Also zum Beispiel...

Delphi-Quellcode:

const
  stNULL   = 0;
  stLOGIN  = 1;
  stERROR  = 3;
  stLOGOUT = 4;
  stUPLOAD = 5;

...

Delphi-Quellcode:

  case ReadByte of
    stNULL:   WriteByte(stNULL);
    stLOGOUT: begin 
                DoLog('Client logout');
                Break;
              end;
    stERROR:  begin 
                DoLog(Format('Client error %d, %s', [ReadByte, ReadString]));
                Break;      // Fehler führt IMMER zum Abbau der Verbindung
              end;
    stUPLOAD: begin  
                FileName := ExtractFilePath(ParamStr(0)) + 'Upload\' + ReadString;
                FileSize := ReadLong;
                DoLog(Format('Client upload %5d, %s', [FileSize, FileName]));
                try
                  FileStream := TFileStream.Create(FileName, fmCreate);
                  try
                    AThread.Connection.ReadStream(FileStream, FileSize);
                  finally
                    FileStream.Free;
                  end;
                  WriteByte(stLOGOUT);
                except
                  on E: Exception do
                  begin
                    WriteByte(stERROR);  
                    WriteByte(1); // Errorcode oder stLogin? (war nicht dokumentiert!)
                    WriteString(E.Message);
                    Break;
                  end;
                end;
              end;
         else
           begin // Invalid Code;
             DoLog('Client sends unknown command, terminate');
             WriteByte(stERROR);
             WriteByte(0); // Errorcode
             WriteString('unknown kommand');
             Sleep(1);
             Break;
           end;
  end;

Wenn ich jetzt irgendwelche Zahlen nicht richtig übersetzt habe, dann liegt das genau daran, dass die vorhergende Darstellung unübersichtlich war und den Unterschied zwischen wirklicher Zahl und Status nicht mehr ersichtlich waren. Das sollte man gleich beim Erstellen bedenken und übersichtlich gestallten, im Nachhinein ist das schwierig.
Hoffe aber, ich habe es richtig umgesetzt.

MfG
Thorsten