procedure TForm1.Button1Click(Sender: TObject);
var
Size: integer;
P: ^Byte;
na : String;
begin
MS := TMemoryStream.Create;
MS.LoadFromFile(Edit1.Text);
ServerSocket1.Socket.Connections[0].SendText('file#'Edit1.text'#'+IntToStr(MS.Size)+'#'); //Нада заместо edit поставить норм. имя
MS.Position := 0;
P := MS.Memory;
Size := ServerSocket1.Socket.Connections[0].SendBuf(P^, MS.Size);
end;
Передача файлов
Привет всем !
Помогите разобраться вот код программы для отправки файла вроде всё в порядки но есть одно "но".
Например я пишу в Edit C:\test.rar
К клиенту приходит в качестве имени C:\test.rar и он его не сохраняет
А если в бить в edit просто test.rar тогда всё нормально так вот в чём вопрос как сделать так чтобы клиент понял имя файла правильно без C:\
P.S Клиент принимет команду "file#Имяфайла#Размер"
Помогите разобраться вот код программы для отправки файла вроде всё в порядки но есть одно "но".
Например я пишу в Edit C:\test.rar
К клиенту приходит в качестве имени C:\test.rar и он его не сохраняет
А если в бить в edit просто test.rar тогда всё нормально так вот в чём вопрос как сделать так чтобы клиент понял имя файла правильно без C:\
P.S Клиент принимет команду "file#Имяфайла#Размер"
Код:
Что-то типа
Это будет отрубать путь и оставлять только имя.
Код:
Edit1.Text=SubString(Edit1.Text,LastDelimiter('\\',Edit1.Text),Length(Edit1.Text));
Это будет отрубать путь и оставлять только имя.
Или ExtractFileName();
А ещё такой вопрос .
Как быстрее всего передовать файлы по сети большого размера
через TServeSocket или SMTP.
Кто как стчитает ?
Как быстрее всего передовать файлы по сети большого размера
через TServeSocket или SMTP.
Кто как стчитает ?
А ты полагаешь, что SMTP как-то не через сокеты работает? :D
TCPServer/TCPClient от Indy
