Sockets und Fastdnet: gemeinsames Schicksal?

[Ulrich Wolf]

Hallo,
mit NMHTTP gibt es verschiedene Proceduren. Unter anderem

----------------------------------------------------------
type
TForm1 = class(TForm)
....
NMHTTP1: TNMHTTP;
....
procedure NMHTTP1PacketRecvd(Sender: TObject);
procedure NMHTTP1Success(Cmd: CmdType);
....
....
if SVers <> Label12.Caption then
begin
Label12.Caption := SVers;
NMHTTP1.Body :=('C:\Programme\IMC-Server\Update-Server\IMC Server.exe');
NMHTTP1.Get(Edit1.Text);
end;
....
Ab hier beginnen die Prozeduren für die Komponente NMHTTP }

procedure TForm1.NMHTTP1PacketRecvd(Sender: TObject);
begin
EmpfangeneBytes:=FormatFloat('#,##0',NMHTTP1.Bytes Recvd);
BytesInsgesamt:=FormatFloat('#,##0',NMHTTP1.BytesT otal);
StatusBar1.panels[0].text:=EmpfangeneBytes+' Bytes von '+
BytesInsgesamt+' Bytes empfangen';
end;

procedure TForm1.NMHTTP1Success(Cmd: CmdType);
begin
GesendeteBytes:=FormatFloat('#,##0',NMHTTP1.BytesS ent);
StatusBar1.panels[0].text:='Fertig ('+
EmpfangeneBytes+' Bytes empfangen).';
beep;
ShellExecute(0,
Nil,
PChar('C:\Programme\IMC-Server\Update-Server\Updater IMC Server.exe'),
Pchar('-Parameter'),
Pchar('C:\StartDir'),
SW_NORMAL);
Form1.Close;
end;
------------------------------------------------------------

So weit die Fragmente der NMHTTP Befehle.
Vilen Dank für die Hilfe
Viele Grüße