Ergebnis der Suchanfrage

• Forum: Netzwerke

  Re: Stream von Client nach Server schicken

    Delphi
    by Synollus, 31. Dez 2008
  Er geht nicht ins Except, also er gibt keine Fehlermeldung aus, wenn ich sie unter Except abfrage. Aber ich habe einen anderen Fehler gefunden:
  
  Path := ExtractFileDir(ParamStr(0)) + 'screen2.bmp';
  
  Da ExtractFileDir keinen Backslash am Ende liefert, musste ich ihn selbst einfügen.
  
  Path := ExtractFileDir(ParamStr(0)) + '\screen2.bmp';
  
  Jetzt wird die Zieldatei erstellt mit 0 KB. Wenn ich...
• Forum: Netzwerke

  Re: Stream von Client nach Server schicken

    Delphi
    by Synollus, 29. Dez 2008
  Hallo,
  
  danke erstmal für deine Antwort. Der Client baut doch die Verbindung auf, oder habe ich dich nicht richtig verstanden? Ich habe das Connect, etc. hier erstmal weggelassen. Die erste Möglichkeit funktioniert, die zweite leider nicht, d.h. am Verbindungsaufbau kann es nicht liegen, da ich da nichts verändert habe und außerdem das WriteLn ausgeführt wird und auch ankommt.
  
  Natürlich...
• Forum: Netzwerke

  Re: Stream von Client nach Server schicken

    Delphi
    by Synollus, 29. Dez 2008
  Ich habe das jetzt einfach mal umgedreht, sodass der Client einen Stream an den Server schickt. Ich denke noch nach wie vor, dass das so nicht gehen wird, aber ich habe es einfach mal versucht. :D
  
  Das sieht jetzt so aus.
  
  Der Server:
  
  procedure TfrmServer.ServerExecute(AThread: TIdPeerThread);
  var
  Path: String;
  fStream: TFileStream;
• Forum: Netzwerke

  Stream von Client nach Server schicken

    Delphi
    by Synollus, 29. Dez 2008
  Ich habe bei euch schon oft die Suche benutzt :mrgreen:, aber jetzt bin ich an einem Punkt angekommen, an dem ich eure Hilfe mal brauche. :shock:
  
  Ich habe den ImageServer (über TCP) aus den Indy 9 Demos ein wenig gekürzt, damit ich den Part in mein Programm bauen kann.
  
  Der Server:
  
  procedure TfrmServer.ServerExecute(AThread: TIdPeerThread);
  var
  Path: String;
  fStream: TFileStream;