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

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

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

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

Это сообщение отредактировал(а) VoAnt - 15.4.2004, 22:33

Если я правильно понял то тебе это надо--> Пишу "Сервер": Кидаю на форму 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.

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

Код

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;

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

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

Слушай реализуй это лучше через 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.

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

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