Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.21.97.61] |
|
Сообщ.
#1
,
|
|
|
//////////Клиент
procedure TForm1.Button1Click(Sender: TObject); var str : TFileStream; begin clientsocket1.Active:=true; str := TFileStream.Create('C:\1.exe',fmOpenRead); str.Position := 0; ClientSocket1.Socket.SendStream(str); clientsocket1.Active:=false; ClientSocket1.Close; end; /////////Сервер procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket); var ibLen : integer; buf : Mass; str : TMemoryStream; begin ibLen := ServerSocket1.Socket.ReceiveLength; SetLength(buf,ibLen+1); showmessage(inttostr(iblen)); str := TMemoryStream.Create; str.Position := 0; // Showmessage(Socket.ReceiveText); - вот здесь всегда ноль!!! Socket.ReceiveBuf(buf,ibLen); str.WriteBuffer(buf,ibLen); str.Position := 0; str.SaveToFile('c:\2.txt'); SetLength(buf,0); str.Free; end; ЧТО НЕТАК??? |
Сообщ.
#2
,
|
|
|
ИМХО не КлиентРеад а КлиентВрайт
|
Сообщ.
#3
,
|
|
|
1. exe какого размера?
|
Сообщ.
#4
,
|
|
|
всмысле 1.txt - около 3mb а воодще он даже 1б не хочет слать!
Добавлено в Нет Write тоже пишет "0".. Есть у кого пример? |
Сообщ.
#5
,
|
|
|
Что такое Mass ?
|
Сообщ.
#6
,
|
|
|
type
Mass : array of char; |
Сообщ.
#7
,
|
|
|
Ну тогда Str.WriteBuffer(buf[0],SizeOf(buf));
|