Zitat von
BenjaminH:
Aber es funktioniert genau so, wie ich es wollte, ich beziehe mich bei dem ganzen auf
diesen Beitrag.
Mag sein das diese anweisungen bei einem Clienten ausreichend sind.
Delphi-Quellcode:
//Ausschnitt.....
While Stream.Position<Stream.Size do
begin
//IDByte einlesen
Stream.ReadBuffer(IDByte,SizeOf(IDByte));
if IDByte=1 then
Stream.ReadBuffer(MyRecord,SizeOf(MyRecord));
if IDByte=2 then
Stream.ReadBuffer(Int,SizeOf(Int));
if IDByte=3 then
Stream.ReadBuffer(Str,SizeOf(Str));
end;
Als Empfangsroutine für den Server wäre sowas tödlich. Weil ihm nur ein Client was schicken kann. Andere Clienten stehen bei dieser, Empfangsfunktion des Servers aufm schlauch. Was passiert wohl wenn dein gegenüber 100kb ( mit upload von 5KB) schickt???. Dann steht deine Anwendung Server dank dem While, solange bis der Stream fertig ist.
Aber wenns dir reicht, wie es scheint, dann ist ja ok.
Marko
So`ne Atombombe kann einem den ganzen Tag verderben!
Eine eigene
DLL in C++ geschrieben wird meist ein Sklave für mein Delphi/Pascal.