В клиентском приложении отправляю двоичный файл на сервер

TFileStream * SF = new TFileStream(OpenDialog1->FileName, fmOpenRead);
ClientSocket1->Socket->SendStream(SF);

Как организовать диспечерезацию на принимающем сервере (ServerSocket), чтобы он понял, что пришел двоичный файл?
Если отправлю текст методом SendText(), то тут все просто, в начале текста ставлю значок “#”, затем на сервере удалю его и работаю с оставшимся текстом.

Соответственно как принять от сервера обработанный двоичный файл, что писать вместо многоточия и правильно ли это? Предварительно имя двоичного файла уже занесено в SaveDialog1->FileName

if(SaveDialog1->Execute())
{

TFileStream *SF = new TFileStream(SaveDialog1->FileName.c_str(), fmCreate);
int Bufer = Socket->ReceiveLength();

SF->CopyFrom((Socket->ReceiveBuf(..... ,Bufer)), 0); //как тут правильно?

SF->Free();

}

Сначала нужно послать на ту сторону информацию о файле (имя, размер, способ передачи, др. необходимую инфу).
Потом дождаться ответа, что все ОК. После этого смело слать поток.
На той стороне уже будут ждать нужный объем информации.

Компоненты ServerSocket и ClientSocket.

В клиентском приложении посылаю файл:

try
{
TFileStream * SF = new TFileStream(OpenDialog1->FileName, fmOpenRead);
ClientSocket1->Socket->SendStream(SF);
}
catch(...)
{
ShowMessage("Ошибка передачи");
}

В серверном обрабатываю и посылаю клиентам. Где ошибка? Как правильно?

int Bufer = Socket->ReceiveLength();
TFileStream * Bufs;
Socket->ReceiveBuf(Bufs, Bufer);

try
{
ServerSocket1->Socket->SendStream(Bufs);
}
catch(...)
{
ShowMessage("Ошибка");
}

После Socket->ReceiveBuf(Bufs, Bufer);
Воткни Socket->Position=0;
И на сервере, вместо TFileStream используй TMemoryStream.
И посмотри в FAQ пример передачи файла по сети.

Спасибо! Буду разбираться в FAQ.
Пока попробывала Ваши рекомендации вместо TFileStream использовать TMemoryStream, но тогда не проходит строчка в клиентском приложении вместо TFileStream * SF = new TFileStream(OpenDialog1->FileName, fmOpenRead); получаю
TMemoryStream * SF = new TMemoryStream(OpenDialog1->FileName, fmOpenRead); в результате этот метод не проходит, потому что второй параметр fmOpenRead его не устраивает.

Естественно. Для клиента нужно оставить файлстрим, а вот серверу он совсем ни к чему.
Да и зачем изобретать велосипед - все уже давно написано.
Бери пример и подстраивай под свои нужды.

На форуме нашла пример на паскале, совсем не понятно. В Help Builder нашла как пересылать текст, но с этим все понятно. Других примеров тоже не нашла в сети, только на паскале.

Мой новый вариант, тоже не работает:

Отправка сообщения на сервер из клиентского сообщения.

TFileStream * SF = new TFileStream(OpenDialog1->FileName, fmOpenRead);
ClientSocket1->Socket->SendStream(SF);


Прием на сервере ServerSocket1ClientRead и отправка клиентам

int Bufer = Socket->ReceiveLength();
char * Bufs = new char[Bufer+1];
Socket->ReceiveBuf(Bufs, Bufer);
TMemoryStream* str = new TMemoryStream ();
str->Position = 0;
str->WriteBuffer((void*)Bufs,Bufer);
str->Position = 0;
try
{

for(int i= 0;i<ServerSocket1->Socket->ActiveConnections ;i++)
ServerSocket1->Socket->Connections[i]->SendBuf((void*)str,Bufer);
}
catch(...)
{
ShowMessage("Ошибка");
}
delete Bufs;
str->Free();
return;


Тоже не работает.

Тогда скорее так:

Код

TFileStream * SF = new TFileStream(OpenDialog1->FileName, fmOpenRead); SF->Position = 0;  ClientSocket1->Socket->SendStream(SF); SF->Free; int Bufer = Socket->ReceiveLength(); char * Bufs = new char[Bufer+1]; Socket->ReceiveBuf(Bufs, Bufer); TMemoryStream* str = new TMemoryStream ();  str->Position = 0; str->WriteBuffer((void*)Bufs,Bufer); str->Position = 0; try { for(int i= 0;i<ServerSocket1->Socket->ActiveConnections ;i++)   {     ServerSocket1->Socket->Connections[i]->SendStream(str); str->Position = 0;   } } catch(...) { ShowMessage("Ошибка"); } delete Bufs; str->Free(); return;

На стороне сервера после прохождения строк
for(int i= 0;i<ServerSocket1->Socket->ActiveConnections ;i++)
{
ServerSocket1->Socket->Connections[i]->SendStream(str);
str->Position = 0;
}

Возникает исключение raised exception class EAcceessViolation

На клиенте после строки
ClientSocket1->Socket->SendStream(SF);


Тоже исключение raised exception class EAcceessViolation

Цитата(Guest @ 26.5.2005, 15:02)

Возникает исключение raised exception class EAcceessViolation

Ну, это уже другая песня.
Может серверный сокет не создан, а может просто клиентов у него нет, а может...
Это все в другом месте.
Попробуй для теста сначала просто из мемористрима сохранить в файл, чтобы убедиться, что хотя бы первая часть работает.

Мне что-то кажется, что у вас ошибка в том, что вы думаете, что когда на сервере наступает событие OnRead, тогда приходит весть отосланный стрим с клиента, на самом деле он приходит пачками, в зависимости от нагруженности сети и другой байды .
поэтому я делал так:
сначала посылал размер файла, а затем уже стрим(можно размер вшивать в сам стрим, но с этим больше парится ), а затем на той стороне накапливать в сервер, пока не прийдет все отосланное, если надо, могу выслать свой исходник, там пересылается картинка в jpg с сервера на клиент.

>Мне что-то кажется, что у вас ошибка в том, что вы думаете, что когда на сервере наступает событие OnRead, тогда приходит весть отосланный стрим

Да, именно так я и предпологала!


>если надо, могу выслать свой исходник

Буду Вам очень благодарна! Мой адрес [email protected]

Заранее спасибо!

отправил, неплохо бы зрагестрироватся...........

cenix Если можно и мне такой кодик. Заранее огромное спасибо. У меня тоже проблема с пересылкой файлов. [email protected]

Цитата(Snowy @ 26.5.2005, 13:01)

TFileStream * SF = new TFileStream(OpenDialog1->FileName, fmOpenRead); SF->Position = 0; ClientSocket1->Socket->SendStream(SF); SF->Free;

И не удивительно, что AV ловиться. SF освобождать вообще не надо,а уже через Free(), а не delete - тем более.

Товарищи, а что у меня не правельно здесь?
В этом алгоритме при пересылке файла больше
1 Мгб все умирает, где подправить, чтобы алгоритм пересылки был надежен?

Клиент:
Глобальные переменные:

int Size ;
TMemoryStream *MS = new TMemoryStream ;

Посылка из клиента в событии ClientSocket1Read:

MS->LoadFromFile( OpenDialog1->FileName );
MS->Position = 0
P = MS->Memory
ClientSocket1->Socket->SendText("Z" + IntToStr(MS->Size));
Size = ClientSocket1->Socket->SendBuf( P , MS->Size );
MS->Clear();

Прием на сервере:

Глобальные переменные:
bool ful = false;
TMemoryStream* MS = new TMemoryStream ();
int Size;

В событии ServerSocket1ClientRead:

S = Socket->ReceiveText();
if(S[1] == 'Z')
{
ful = true;
AnsiString SizeFile = S.SubString(S.Pos("Z")+1,S.Length());
Size = StrToInt(SizeFile);
S.Delete( 1 , S.Pos( "Z" ) ) ;
return;
}
if(ful)
{

Write(S);
}
else {…другой код}


Ф-ция записи Write:

void Write( AnsiString Text )
{

if(MS->Size < Size {
MS->Write( S.c_str() , S.Length() );
}

if(MS->Size == Size)
{

MS->Position = 0 ;
CreateDir( "Dow" );
AnsiString Path;
Path = SFiles.SubString( SFiles.LastDelimiter( "\\" ) + 1 , SFiles.Length() );

MS->SaveToFile( "Dow\\"+Path );
MS->Clear() ;
Size = 0 ;
ful = false;


}
}

Товарищи, найдите ошибку при пересылке файла больше
1 Мгб все умирает, где подправить, чтобы алгоритм пересылки был надежен?

Клиент:
Глобальные переменные:

int Size ;
TMemoryStream *MS = new TMemoryStream ;

Посылка из клиента в событии ClientSocket1Read:

MS->LoadFromFile( OpenDialog1->FileName );
MS->Position = 0
P = MS->Memory
ClientSocket1->Socket->SendText("Z" + IntToStr(MS->Size));
Size = ClientSocket1->Socket->SendBuf( P , MS->Size );
MS->Clear();

Прием на сервере:

Глобальные переменные:
bool ful = false;
TMemoryStream* MS = new TMemoryStream ();
int Size;

В событии ServerSocket1ClientRead:

S = Socket->ReceiveText();
if(S[1] == 'Z')
{
ful = true;
AnsiString SizeFile = S.SubString(S.Pos("Z")+1,S.Length());
Size = StrToInt(SizeFile);
S.Delete( 1 , S.Pos( "Z" ) ) ;
return;
}
if(ful)
{

Write(S);
}
else {…другой код}


Ф-ция записи Write:

void Write( AnsiString Text )
{

if(MS->Size < Size {
MS->Write( S.c_str() , S.Length() );
}

if(MS->Size == Size)
{

MS->Position = 0 ;
CreateDir( "Dow" );
AnsiString Path;
Path = SFiles.SubString( SFiles.LastDelimiter( "\\" ) + 1 , SFiles.Length() );

MS->SaveToFile( "Dow\\"+Path );
MS->Clear() ;
Size = 0 ;
ful = false;
//

}
}