Форум программистов [Powered by Invision Power Board]

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

Форум программистов > Delphi: Сети > IdTCPServer1 IdTCPClient1 Картинки файлы

Автор: VoAnt 15.4.2004, 22:25

Люди всё бьюсь над вопросом.. Помогайте.
Я пишу програмку обмена Картинками по локалке....

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

Сетевая часть у меня на Indy!

На серверной части (IdTCPServer1) у меня происходит запихивание картинки в TBitmap, и сервак ожидает команды 'send'.
Как в обработчике команды (IdTCPServer1TIdCommandHandler0Command) переслать TBitmap? клиенту,
и что клиент лолжен принимать (Всмыле Буфер(IdTCPClient1.ReadBuffer()) или Лайн или ...)...

Помогите ПЛЗ!

Автор: KIPISH 16.4.2004, 13:04

Если я правильно понял то тебе это надо--> Пишу "Сервер": Кидаю на форму TIDTCPServer1 + TidAntiFReez и в событии OnExecute пишу эту шнягу..

Код


var
  S: String;
  F: TFileStream;

Const
  Path = 'c:\Porno\';
begin
  S := AThread.Connection.ReadLn;   //Получаем от клиента имя файла..
  F := TFileStream.Create(Path + S, fmOpenRead);    //Создаём поток данных...
  AThread.Connection.OpenWriteBuffer;   //Готовим буфер для записи...
  AThread.Connection.WriteStream(F);    //Передаём данные..
  AThread.Connection.CloseWriteBuffer; //Очищаем буфер нахер..
  AThread.Connection.Disconnect;          //no comments...
                                          end;
                                           end.

"Клиент": Кидаю TIDTCPClient1 + TidAntiFreez,TImage1,ComboBox1 и в Items заполняю именами файлов из каталога "c:\Porno\',(golie_siski.bmp и т.д), и один Батон c Caption(получить рисунок), и в событии Button1Click пишу:

Код


var
  F: TFileStream;
begin
  TIDTCPClient1.Connect;
  TIDTCPClient1.WriteLn(ComboBox1.Items[ComboBox1.ItemIndex]);   //Передаём запрос..
  F := TFileStream.Create( 'porno.bmp', fmCreate);      //Создаём поток данных..
  TIDTCPClient1.ReadStream(F, - 1, True);     //Читаем поток до конца соеденения...
  F.Free;         //no comments..
  Image1.Picture.LoadFromFile('porno.bmp');        //Показываем изображение...
  TIDTCPClient1.Disconnect;
  DeleteFile('porno.bmp');
                                   end;
                                    end.

Автор: VoAnt 16.4.2004, 14:02

Тааак.... наблюдаются проблеммы... Я получаю данные не из файла...

Код



procedure TForm1.Button1Click(Sender: TObject);
var bmp : TBitmap
begin
  bmp := TBitmap.Create;
  try
    bmp.Width := Screen.Width;
    bmp.Height := Screen.Height;
    if BitBlt (bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, GetDC (GetDesktopWindow), 0, 0, SRCCOPY) then Image1.Picture.Bitmap.Assign (bmp) else
      ShowMessage ('Failed!');
  finally
    bmp.Free;
  end;

Как мне отправить по сети такую картинку?

Автор: VoAnt 16.4.2004, 15:24

Для файла код работает 100%
А вот для передачи TBitmap по сети в онлайне TStream чего-то глючит!!!
Но всё-равно спасибо!

Автор: KIPISH 16.4.2004, 15:50

Слушай реализуй это лучше через TServerSocket и TClientSocket вот пример:
Сервер: на форме TServerSocket1 c Name(Server);

Код


procedure TForm.FormCreate();
begin
Server.Port := 199;   
Server.Active := True;
end;
procedure TForm.ServerClientRead();
var
Rt: STring;
Bmp: TBitmap;
begin
  Rt := Socket.ReceiveText;    //Команды клиента..
  If Rt = 'Foto' then begin   //Если команда = 'Foto' то..
   bmp.Width := Screen.Width;
   bmp.Height := Screen.Height;
   if BitBlt (bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, GetDC (GetDesktopWindow), 0, 0, SRCCOPY) then begin Bmp.SaveToFile('c:\Foto.bmp');
  Server.Socket.Connections[0].SendText('Foto#' + 'c:\Foto.bmp');    //Посылаем команду + сам рисунок..//
 finally
DeleteFile('C:\Foto.bmp');  
Bmp.Free;
end;
end;
end.

Клиент: на форме TImage1,TClientSocket1 c Name(Client),TButton1 c Caption(Соеденится),TButton2 c Caption(Получить рисунок);

Код


procedure TForm.Button1Click();
begin
  Client.Host := 'Kipish';   //Имя в локалке..
  Client.Port := 199;    //Порт у сервака...
  Client.Active := True;
end;
procedure TForm.Button2Click();
begin
  Client.Socket.SendText('Foto');
end;
procedure TForm.ClientRead();
var
 Rt: STring;
begin
 If Copy(Rt, 0, Pos('#', Rt) = 'Foto' then begin
Delete(Rt, 1, Pos('#', Rt));
Image1.Picture.LoadFromFile(Rt);
ShowMessage('Рисунок получен');
end;
end;
end.

Помоему удобно и красиво..

Автор: KIPISH 16.4.2004, 16:08

Чёт я загнался сначала загрузи рисунок в TMemoryStream а потом передавай...