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