Ergebnis der Suchanfrage

• Forum: Netzwerke

  Re: Indy 9 Sample - UDPClientServer - Delphi 6 -> 2006 ?!

    Delphi
    by Klaus01, 17. Dez 2008
  Na, so gut auch nicht, ich schaue vielleicht ab und an mal in die Docu...
  Wenn Du die Indy 10 deinstallieren willst, machst Du das so wie bei jeder anderen Komponente auch.
  Wenn Du dir Indy 9 geladen hast, ist dort ein Package dabei welches Du installieren kannst.
  Eine Installationsbeschreibung ist auch dabei.
  
  Die Indy 9 würde ich verwenden, wenn ich schon Sourcen mit Indy 9 hätte und damit...
• Forum: Netzwerke

  Re: Indy 9 Sample - UDPClientServer - Delphi 6 -> 2006 ?!

    Delphi
    by Klaus01, 17. Dez 2008
  Hallo,
  
  leider kann ich das nicht testen.
  Habe "nur" Indy 9 installiert.
  
  
  procedure TUDPMainForm.UDPServerUDPRead(Sender: TObject; AData: TBytes; ABinding: TIdSocketHandle);
  var
  DataStringStream: TStringStream;
  s: String;
• Forum: Netzwerke

  Re: Indy 9 Sample - UDPClientServer - Delphi 6 -> 2006 ?!

    Delphi
    by Klaus01, 17. Dez 2008
  Der Prozedurkopf schaut so aus:
  procedure SendTo(const AIP: string; const APort: Integer; const ABuffer: TIdBytes;
  const AIPVersion: TIdIPVersion = ID_DEFAULT_IP_VERSION);
  
  
  length(data,length(s)-1);
  move(s,data,length(s)-1);
  ABinding.SendTo(ABinding.PeerIp,ABinding.PeerPort,data);
  
  wobei data vom Typ TBytes sein sollte.
• Forum: Netzwerke

  Re: Indy 9 Sample - UDPClientServer - Delphi 6 -> 2006 ?!

    Delphi
    by Klaus01, 17. Dez 2008
  Guten Morgen,
  
  Du nutzt doch Indy 10, sonst hättest Du die Probleme nicht.
  Es gab da so einige Änderungen von Indy 9 auf Indy 10.
  
  ersetzte mal das:
  
  DataStringStream.CopyFrom(AData,length(AData));
  durch das:
  DataStringStream.Write(AData,length(AData));
• Forum: Netzwerke

  Re: Indy 9 Sample - UDPClientServer - Delphi 6 -> 2006 ?!

    Delphi
    by Klaus01, 16. Dez 2008
  //procedure TUDPMainForm.UDPServerUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
  procedure TUDPMainForm.UDPServerUDPRead(Sender: TObject; AData: TBytes; ABinding: TIdSocketHandle);
  var
  DataStringStream: TStringStream;
  s: String;
  begin
  DataStringStream := TStringStream.Create('');
  try
  // s := BytesToString(AData);
  ...