@Shmia: Ich möchte das aber komplett programmieren. Wo bliebe denn da der Lerneffekt?
Also irgendwie kriegt mein Programm den Arsch nicht hoch: Dümpelt im Besten fall bei 10% Netzwekauslastung einer 54 MBit/s Netzwerkkarte rum. Und die Packetgröße beträgt gerade mal 1460 Byte...
Wie krige ich das ganze noch besser hin? Ans Maximum?
Komischerweise sind die Packete immer 1460 Byte groß. Dabei müssten sie doch verschieden groß sein, da er den 1048576 Byte großen "sentvar" zerlegt. Komischerweise hatte ich einmal eine Konstante Packetgröße von etwa 960 Byte...
Mein Code:
Delphi-Quellcode:
var sentvar : string;
bytes, zahler : int64;
procedure TForm1.Button3Click(Sender: TObject);
var Socket: TCustomWinSocket;
i,j : integer;
size : integer;
begin
SetLength(sentvar,1048576);
size:=length(sentvar);
if ClientSocket1.active then
begin
for i:=1 to 100 do
begin
Clientsocket1.Socket.SendBuf(sentvar[1],size);
end;
end;
end;
procedure TForm1.Read(Sender: TObject; Socket: TCustomWinSocket);
var size : integer;
begin
size:=Socket.ReceiveLength;
SetLength(sentvar,size);
Socket.ReceiveBuf(sentvar[1],size);
zahler:=zahler+1;
Label7.Caption:=InttoStr(zahler);
bytes:=bytes+size;
Label6.Caption:=InttoStr(size);
Label5.Caption:=InttoStr(bytes);
if zahler<100000 then
Socket.SendBuf(sentvar[1],size);
end;