FileSize(file.exe);

[yildi]

Delphi-Quellcode:

procedure TForm1.BtnServerUpdateClick(Sender: TObject);
var
  FUpdateStream: TFileStream;
  UpdateFile : File;
  UpdateSize: longint; 
begin
  if FileExists('Server.exe') then
    begin
      AssignFile(UpdateFile, 'Server.exe');
      Reset(UpdateFile);
      UpdateSize := FileSize(UpdateFile);
      showmessage(IntToStr(UpdateSize));
      CloseFile(UpdateFile);

      //ClientSocket1.Socket.SendText('ServerUpdateSize:'+inttostr(UpdateSize));
      
      //FUpdateStream := TFileStream.Create('Server.exe', fmOpenRead);
      //ClientSocket1.Socket.SendStream(FUpdateStream);
      //Log.Lines.Add('('+TimeToStr(Now)+') System: Das Update wurde übertragen und wird nun installiert.');
    end
  else
    Log.Lines.Add('('+TimeToStr(Now)+') System: Keine Server.exe gefunden.');
end;