Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi hab mir selbst geholfen (https://www.delphipraxis.net/73539-hab-mir-selbst-geholfen.html)

gandime 19. Jul 2006 14:54


hab mir selbst geholfen
 
so
ich hab mir jetzt selbst geholfen

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  FStream: TFileStream;
begin
  FStream := TFileStream.Create('C:\client.jpg', fmOpenRead);
  idtcpclient.Connect;
  try
    idtcpclientIOHandler.Write(Fstream,0,true);
  finally
    idtcpclient.Disconnect;
  end;
  FreeAndNil(FStream);
end;


procedure TForm1.idtcpserverExecute(AContext: TIdContext);
var
  FSTream: TFileStream;
begin
  FStream := TFileStream.Create('C:\server.jpg', fmCreate);
  try
    AContext.connection.IOHandler.ReadStream(fstream);
  finally
    AContext.connection.Disconnect;
  end;
  FreeAndNil(FStream);
end;
fals wer das selbe prob hatte hilft das hier hoffendlich

Bernhard Geyer 19. Jul 2006 14:56

Re: hab mir selbst geholfen
 
Ich denke bei diesem Titel kommt keiner darauf was du eigentlich gelößt hast.

Also bitte dem Thread einen eindeutigen Titel geben :warn:

MaBuSE 19. Jul 2006 15:02

Re: hab mir selbst geholfen
 
Zitat:

Zitat von Bernhard Geyer
Ich denke bei diesem Titel kommt keiner darauf was du eigentlich gelößt hast.
Also bitte dem Thread einen eindeutigen Titel geben :warn:

Ich vermute wollte auf folgenden Thread antworten, hat aber aus Versehen den falschen Button erwischt und so ein neues Thema eröffnet.

Beitrag: daten via tcp indy 10 verschicken?

gandime 19. Jul 2006 15:37

Re: hab mir selbst geholfen
 
huch hab mich verklickt ich hatte schonmal nen tread aufgemacht und wollte auf mich selber antworten das ich das selber gelöst habe

http://www.delphipraxis.net/internal...=580902#580902

mleyen 4. Apr 2008 08:00

Re: hab mir selbst geholfen
 
Moin,

sobald ich den Code ausführe schmeißt der Client folgende Fehlermeldung:

_______________________________
Application.Name
_______________________________
Socket Error # 10053
Software caused connection abort.
_______________________________
[mbOK]
_______________________________

Und dabei diconnectet der Client auch noch.

Die Datei wird vom Server angelegt und ist dann dauerhaft 0KB groß, also nix drin, wenn ich versuche dann die zu löschen greift der Server noch auf die Datei zu, obwohl der Client längst disconnected ist.


Weiß jemand woran das liegen könnte? (Client und Server laufen auf dem gleichen PC)

Edit:
Arg hab den Fehler schonmal gefunden: Beim Server wurd noch ReadLN anstatt ReadStream aufgerufen!

Christian Seehase 4. Apr 2008 23:05

Re: hab mir selbst geholfen
 
Moin Zusammen,

damit's nicht völlig durcheinander geht, dann bitte, bei Bedarf, im Ursprungsthread weitermachen. ;-)
Danke.

Ich mach' dann hier mal zu.


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:40 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz