Dateien Versenden per TClient- / TServerSocket

TimKellner · Beiträge: 73 Win XP Pro Delphi 7 Enterprise, RAD Studio

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:

markieren

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

markieren

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 · Verfasst: Fr 15.02.08 19:53

Moin!

TimKellner 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 und Tutorial :les:

Dann hier noch der Grund, warum dein Code da oben nicht klappt. :idea:

Und noch was zu Streams und Sockets.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

TimKellner · Beiträge: 73 Win XP Pro Delphi 7 Enterprise, RAD Studio

Hallo narsens,

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

Narses · Verfasst: So 17.02.08 00:45

Moin!

Tja...

dann schau dir das hier nochmal an; wenn du damit allerdings auch nicht weiter kommst, dann solltest du erstmal etwas Grundlagen aufarbeiten....

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme