Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Передать картинку по сети 
:(
    Опции темы
Rodman
Дата 20.9.2006, 15:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122
Дароф. 

Дело такое... У меня есть клиент и сервер в инете написан на делфях... Возможно ли послать фотку от клиента к серверу и наоборот...

Т.е. один посылает, второй у себя сохраняет...

Спасибо... smile  smile  smile 


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
_hunter
Дата 20.9.2006, 16:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 5
Всего: 98
Цитата(Rodman @  20.9.2006,  15:59 Найти цитируемый пост)
Возможно ли послать фотку от клиента к серверу и наоборот...

возможно.

за
Цитата(Rodman @  20.9.2006,  15:59 Найти цитируемый пост)
sample

-- фпоиск


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Snowy
Дата 20.9.2006, 16:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 53
Всего: 484
ссылки внизу страницы...
PM MAIL   Вверх
Rodman
Дата 20.9.2006, 18:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122
все в основном типа Upload.. мне передача

Ну я смотрел кое что (в основном iddqd спрашивал), но там работа с сайтом... а у меня на серваке програ WebServices, которая принимать может.... 


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Snowy
Дата 20.9.2006, 19:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 53
Всего: 484
В основном...
Плохо смотрел.
Вот пример из FAQ: http://vingrad.ru/DELPHI-DLP-001358
Также в DRKB есть топ именно с таким названием.
А файл или картинка - не суть разница - картинка - частный случай файла.
PM MAIL   Вверх
Rodman
Дата 23.9.2006, 12:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122
Да вот пример из DRKB получился
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ScktComp;

type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    ServerSocket1: TServerSocket;
    BitBtn1: TBitBtn;
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ClientSocket1Disconnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
    procedure ServerSocket1ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure BitBtn1Click(Sender: TObject);
  private
    FStream: TFileStream;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var  
  iLen: Integer;  
  Bfr: Pointer;
begin
  iLen := Socket.ReceiveLength;  
  GetMem(Bfr, iLen);
  try  
    Socket.ReceiveBuf(Bfr^, iLen);  
    FStream.Write(Bfr^, iLen);
  finally  
    FreeMem(Bfr);  
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FStream := nil;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if Assigned(FStream) then  
  begin  
    FStream.Free;
    FStream := nil;  
  end;
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  if Assigned(FStream) then  
  begin  
    FStream.Free;
    FStream := nil;  
  end; 
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  FStream := TFileStream.Create('C:\Temp\20MJW2.jpg', fmCreate or fmShareDenyWrite);
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Socket.SendStream(TFileStream.Create('C:\Temp\20MJW.jpg', fmOpenRead or fmShareDenyWrite));
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ServerSocket1.Active := True;  
  ClientSocket1.Active := True;
end;

end.


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

Как определить момент окончания закачки и закрыть форму????



И второй вопрос...

У меня есть веб сервис, он не визуален... каким образом мне описать в нем процедуры... чтобы он мог принимать, а также отсылать??? 


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Snowy
Дата 25.9.2006, 21:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 53
Всего: 484
Цитата(Rodman @  23.9.2006,  12:06 Найти цитируемый пост)
Как определить момент окончания закачки
В данном примере событие ClientSocket1Disconnect
Сразу после уничтожения стрима можешь гасить форму.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0609 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.