VPF::Как послать файл через TcpServer & TcpClient ?

Andrewtitoff

Дата 18.1.2008, 11:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 14.1.2008

Репутация: нет
Всего: нет

Пытаюсь послать файл, файл посылается, но прога все время вываливается с ошибками:
Access violation, Canvas does not allow drawing... =(((
И как при приеме узнать размер пересылаемого файла что бы засунуть его в ReceiveBuf.., SizeOf(Buf) возвращает все время 4 ... =(((
Вот текст моей программы:

Код


================================================
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Sockets, StdCtrls;

type
 TMyChat = class(TForm)
   Label1: TLabel;
   Label2: TLabel;
   Label3: TLabel;
   RemoteHost: TEdit;
   RemotePort: TEdit;
   LocalPort: TEdit;
   Display: TMemo;
   Edit: TEdit;
   Connect: TButton;
   TcpServer1: TTcpServer;
   TcpClient1: TTcpClient;
   SendFile: TButton;
   procedure TcpServer1Accept(Sender: TObject; ClientSocket: TCustomIpClient);
   procedure SendClick(Sender: TObject);
   procedure ConnectClick(Sender: TObject);
   procedure SendFileClick(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 MyChat: TMyChat;

implementation

{$R *.dfm}

procedure TMyChat.ConnectClick(Sender: TObject);
begin
TcpServer1.LocalPort := LocalPort.Text;
TcpServer1.Active := True;
TcpClient1.RemotePort := RemotePort.Text;;
TcpClient1.RemoteHost := RemoteHost.Text;;
TcpClient1.Active := True;
end;

procedure TMyChat.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TcpServer1.Active := False;
TcpClient1.Active:= False;
TcpClient1.Disconnect;
end;

procedure TMyChat.SendFileClick(Sender: TObject);
var
asd:Tmemorystream;
begin
asd := TMemoryStream.Create;
asd.Position:=0;
asd.LoadFromFile('c:\1.txt');
asd.Position:=0;
TcpClient1.Active := True;
 try
   if TcpClient1.Connect then
     begin
     TcpClient1.SendStream(asd);
     end;
 finally
   TcpClient1.Disconnect;
 end;
asd.free;
end;

procedure TMyChat.TcpServer1Accept(Sender: TObject;
 ClientSocket: TCustomIpClient);
var
    s:string;
    asd:tmemorystream;
    len:integer;
    buf:pointer;
 begin
asd:=TMemoryStream.Create;
asd.Position:=0;
len:= ClientSocket.ReceiveBuf(buf,192,0);
asd.WriteBuffer(buf,len);
asd.SaveToFile('c:\000.txt');
asd.Free;
FreeMem(Buf);
clientsocket.Close;
ShowMessage('clientsocket.Close');
end;

end.
================================================

Snowy

Дата 18.1.2008, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Цитата(Andrewtitoff @ 18.1.2008, 11:31

)

И как при приеме узнать размер пересылаемого файла

Передавать сначала размер, а затем сам файл.
ЗЫ. see also http://forum.vingrad.ru/topic-65704.html

Andrewtitoff

Дата 18.1.2008, 13:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 14.1.2008

Репутация: нет
Всего: нет

Ясно, это я видел, просто я думал что можно как нить по человачески, как в TClientSocket
писать Len:=Socket.ReceiveLength;... =((((

Snowy

Дата 18.1.2008, 14:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Это не по человечески.
TCP/IP - это поток.
Будут ли ещё данные или нет - известно только клиенту.
Поэтому клиент и должен сообщить - щас передам столько-то байт, принимай...

Andrewtitoff

Дата 18.1.2008, 14:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 14.1.2008

Репутация: нет
Всего: нет

2 Snowy
Ну это то да, это я поросто привел пример с исходника где сервер отправляет клиенту..., то есть как я понял что теперь если использовать TcpServer & TcpClient то узнать размер пересылаемого файла нельзя, надо тока заранее это все отаравлять строкой?, так что ли получается?
Ну это то ладно, я переживу, отправлю, слава богу с отправкой строк я разобрался..., а как мне файл то вообще послать, а то у меня файл то посылается, тока непонятные ошибки какие то и программа вылетает... =((((

Snowy

Дата 18.1.2008, 14:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Пересылай всё, как блок данных.
Все методы, типа SendStrings - это просто обёртки над отправкой блока данных, для удобства в конкретном случае.
Всё передаваемое есть блок данных.
Отправляй размер блока, потом сам блок.
Так можно передать любые данные.
Забудь про обёртки - всё есть байты. Пихай их непосредственно в буфер отправки.

Andrewtitoff

Дата 18.1.2008, 14:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 14.1.2008

Репутация: нет
Всего: нет

2 Snowy
Я с тобой полностью согласен по поводу "всё есть байты", так я изначально и спрашиваю как это сделать, исходник моей проги который я вывесил в самом начале работает тока наполовину... =(((, файл он передает, тока после этого вываливается в лучшем случае, а обычно вешает всю систему... =((((
Не мог бы ты написать мне рабочий пример(тока проверенный у себя, а то нерабочих то поно в инете) как переслать файл через TcpServer & TcpClient ?...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »