HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
 
 
Опции темы Поиск в этой теме Опции просмотра

отправка прием картинки Socket Server&Client Delphi
  #1  
Старый 22.05.2008, 12:24
Flame of Soul
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
С нами: 9980798

Репутация: 435
Отправить сообщение для Flame of Soul с помощью MSN
По умолчанию отправка прием картинки Socket Server&Client Delphi

отправляю:
PHP код:
       fs:=TMemoryStream.Create;
       
Image1.Picture.Bitmap.SaveToStream(fs);
       
ServerSocket1.Socket.SendStream(fs); 
принимаю:
PHP код:
procedure TForm1.Button1Click(SenderTObject);
begin
ClientSocket1
.Active:=true;
end;

procedure TForm1.Button2Click(SenderTObject);
begin
ClientSocket1
.Active:=false;
end;

procedure TForm1.ClientSocket1Read(SenderTObject;
  
SocketTCustomWinSocket);
  var
  
sstring;
begin
  s
:=Socket.ReceiveText;
  
Reciving:=true;
  
ClientSocket1.Socket.ReceiveBuf(s,DataSize);
  
fs.WriteBuffer(s,DataSize);
  
Image1.Picture.Bitmap.LoadFromStream(fs);
  
end
что не правильно в приеме
 
Ответить с цитированием
 



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
delphi smtp socket eroor 10080 anti_sec2 Болталка 3 09.05.2008 18:12



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.

×

Создать сделку

Продавец: ник или ID

Название сделки:

Сумма USDT:

Срок сделки, дней:

Кто платит комиссию:

Условия сделки:

После создания сделки средства будут зарезервированы в холде до завершения сделки.

×

Мои сделки

Загрузка...
×

Сделка


Загрузка чата...