Hi,
und zwar hab ich schon suche bneutzt und das gefunden:
www.delphi-forum.de/...ket%20datei%20senden
Und zwar hab ich einen Chat Client und Server.
Und nun möchte ich von Client an Server dateien Senden.
Den Server hat mein Kumpel und ich den Client und da wir viel bei MyVideo... auch Videos Runterladen wollen wir sie so Tauschen.
Das hab ich beim Client:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.Button6Click(Sender: TObject);
var
FStream: TFileStream;
begin
FStream := TFileStream.Create('C:\Film.flv', fmOpenRead);
ClientSocket5.Socket.SendStream(FStream);
end; |
und das hat er beim Server:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
| procedure TForm1.ServerSocket5ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
FStream: TFileStream;
SizeOfFile: Integer;
pBuffer: Pointer;
begin
if SaveDialog1.Execute then
begin
FStream := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmOpenWrite);
SizeOfFile := Socket.ReceiveLength;
GetMem(pBuffer, SizeOfFile);
try
Socket.ReceiveBuf(pBuffer^, SizeOfFile);
FStream.Write(pBuffer^, SizeOfFile);
finally
FreeMem(pBuffer);
FStream.Free;
end;
end;
end; |
PS: Das ganze läuft ohne User List ist alles direckt!
Was machen wir falsch bei mir kommt erst gar nix an.
MFG Asus
im Forum!
Asus
