Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Передача файла по нету.

Страницы: < 1 2
Johnnnnn © (2009-08-10 03:01:00)
В общем есть какойто простой компонент для передачи файла чтоб ип хоста написаит и порт и название файла и можно слать ато чтото сокеты меня реально бесят.

Johnnnnn (2009-08-10 11:39:00) [21]
Я не програмер. Если пишу чтото то для удаления рутины, я кстати менеджером и работаю:) А если для такой ерунды как пересылка файла когото нанимать то никаких денег не напасешся!:)

Anatoly Podgoretsky (2009-08-10 11:33:00) [22]

> вобще настроение писать пропало все:) повтыкаю пару часиков

Правильно повтыкай и иди в другое место работать - менеджером.

Anatoly Podgoretsky (2009-08-10 11:32:00) [23]

> мне чесно лень даже было смотреть че там было,

А нам тем более лень.
Ты закажи работу, тому, кому не лень и все будет в порядке.

Johnnnnn (2009-08-10 11:24:00) [24]
а да кстати кусок файла оно таки присылает, потом какието обрывы, ошибки, короче я манал, вобще настроение писать пропало все:) повтыкаю пару часиков посмотрю что там с indy может полече будет:)

Johnnnnn (2009-08-10 11:22:00) [25]
Это сервер под сервером подразумеваю, мое приложение с ServerSocket
глобальные var
const
MAX_BUF_SIZE = $4095;

var
Form1: TForm1;
fStream: TFileStream;
принимаем файл (а это точно файл потому как я ничего не шлю кроме файла:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
count :Integer;
buffer: Array [0..MAX_BUF_SIZE] of Char;

begin
repeat
Socket.Lock;
count:= Socket.ReceiveBuf(buffer,SizeOf(buffer));
if count > 0 then
fStream.WriteBuffer(buffer,count);
Socket.Unlock;
until (count <= 0);
fStream.Free;
end;
fStrem создается здесь:
procedure TForm1.FormActivate(Sender: TObject);
begin
fStream:= TFileStream.Create('c:\2.xls', fmCreate);
end;

Клиент:
procedure TForm1.Button1Click(Sender: TObject);
var srcfile: TMemoryStream;

begin
try
srcfile :=TMemoryStream.Create;

srcfile.LoadFromFile('C:\1.xls');

ClientSocket1.Socket.SendStreamThenDrop(srcfile);
srcfile.Free;
except
end;

end;

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

Johnnnnn (2009-08-10 11:15:00) [26]
Ок. Один остался счас закину.

Сергей М. (2009-08-10 11:11:00) [27]

> есть "сервер"

Что значит "есть" ?
Откуда он там взялся ?
Его разрабатывал ты сам или использовал готовую стороннюю разработку ?
Какой прикладной протокол используется этим сервером для обслуживания клиентов ?

> все какие-то ошибки выдают

Что, вот прямо все они так и говорят - "выдаю какие-то ошибки" ?
Или в текстах этих ошибок сплошь и рядом незнакомые тебе буквы ?)

Johnnnnn (2009-08-10 11:05:00) [28]
Первый пост был написан в приступе неконтролируемой злости (3 примера с сокетами в нете перепробовал и все какие-то ошибки выдают) поэтому писал быстро. А ситуация такая - есть "сервер" (запущенный на удаленной машине) и есть клиент, нужно наладить передачу файлов между ними по нажатию кнопки, нажал - получи файл, нажал другую забросил файл обратно. То есть да, об открытом порте буду заботиться я и я в курсе.:)

Сергей М. (2009-08-10 10:17:00) [29]

> Johnnnnn (10.08.09 09:58) [8]

А откуда удаленный хост узнает, что он обязан от тебя что-то там принять на таком-то порту ?)
Кто об этом позаботится кроме тебя ?)

Johnnnnn (2009-08-10 09:58:00) [30]

> Вы просто не умеете их готовить...

Согласен, но настроения разбираться вобще никакого нет... Будет время может както осилю, а пока ну их.

Dennis I. Komarov (2009-08-10 09:54:00) [31]
Вы просто не умеете их готовить...

Johnnnnn (2009-08-10 09:47:00) [32]
если не они тогда Palladin

Сергей М. (2009-08-10 09:15:00) [33]

> не они именно бесят

Если не они , то кто ?)

Johnnnnn (2009-08-10 08:08:00) [34]

> а то что-то работа с сокетами меня раздражает?

не они именно бесят! причем нипадецки!

Johnnnnn (2009-08-10 08:05:00) [35]
Спасибо за
> Пакет сетевых компонентов Indy

PZ (2009-08-10 06:51:00) [36]
Плюс к [1] TIF © (10.08.09 03:52)

PS: меня сильно поколбасилоот текста

TIF (2009-08-10 03:52:00) [37]
Пакет сетевых компонентов Indy
TIdTCPServer (Отсылать)
TIdTCPClient (Принимать)

PS: меня сильно поколбасило от текста
> В общеместь како йто простой компонент для передачи файла
> чтоб ип хоста написа ити порт и название файла и можно слать
> ато чтотосокеты меня реально бесят.

Translate to russian:
"Есть ли какой-то простой компонент для передачи файла, чтобы написать IP хоста, порт и имя файла и отослать, а то что-то работа с сокетами меня раздражает?"

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »