Entwickler-Ecke

Internet / Netzwerk - Dateien Versenden per TClient- / TServerSocket


TimKellner - Fr 15.02.08 18:05
Titel: Dateien Versenden per TClient- / TServerSocket
Hallo ich möchte gerne Dateien per TClient- /TServerSocket /Senden empfangen aber ich bekomme es leider nicht in und die SuFu & Googel war auch kein Volltreffer.

Kann mir einer von euch helfen?

Senden:

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
      AUFileStream := nil;
      try
        AUFileStream := TFileStream.Create(AUFile, fmOpenRead);
        Socket.SendBuf(AUFileStream, SizeOf(AUFileStream));
      finally
        FreeAndNil(AUFileStream);
      end;


Empfangen

Delphi-Quelltext
1:
2:
  test := TFileStream.Create('C:\test.txt', fmCreate);
  Socket.ReceiveBuf(test, Socket.ReceiveLength);


Ich hoffe mal das mir jmd unter die Arme greifen kann.

Gruß
Tim


Narses - Fr 15.02.08 19:53
Titel: Re: Dateien Versenden per TClient- / TServerSocket
Moin!

user profile iconTimKellner hat folgendes geschrieben:
Hallo ich möchte gerne Dateien per TClient- /TServerSocket /Senden empfangen aber ich bekomme es leider nicht in und die SuFu & Googel war auch kein Volltreffer.
Hm. :| Dafür, das wir das gleich zwei mal in der Library haben, scheint deine Suche aber nicht sehr "ausführlich" gewesen zu sein... :zwinker:

FAQ [http://www.delphi-library.de/topic_+eine+Datei+ueber+Sockets+verschicken_67648.html] und Tutorial [http://www.delphi-library.de/topic_BinaerProtokollTutorial+Sockets+v100+MalChatFiles_66706.html] :les:

Dann hier noch der Grund [http://www.delphi-library.de/topic_Probleme+beim+SendenEmpfangen+von+records++dyn+Objekten_60793.html], warum dein Code da oben nicht klappt. :idea: Und noch was zu Streams und Sockets [http://www.delphi-library.de/topic_Warum+gibt+es+kein+ReceiveStream+bei+den+Sockets_65367.html]. :D

cu
Narses


TimKellner - Fr 15.02.08 23:59

Hallo narsens,

dein tut habe ich gelesen, doch ich habs leider nicht verstanden.


Narses - So 17.02.08 00:45

Moin!

Tja... :? dann schau dir das hier [http://www.delphi-forum.de/viewtopic.php?p=451338#451338] nochmal an; wenn du damit allerdings auch nicht weiter kommst, dann solltest du erstmal etwas Grundlagen aufarbeiten.... :|

cu
Narses