Delphi. DataSnap. Как передать изображение на сервер?

Это простой пример, который можно усовершенствовать в дальнейшем. Изображение сжимаем в строку и передаем её на сервер. Там оно оказывается в переменной bmp:tbitmap; В примере почти отсутствуют всяческие проверки, только идея, но тем не менее картинка успешно передается.

Что делаем на сервере?

В методах сервера пишем такую процедуру…

Кстати, сначала вместо процедуры использовал функцию tbitmap, и получал ошибку tkPointer…, но сделал процедуру и все заработало.

Что делаем на клиенте?

5

Вот обработчики кнопок…

Отправка на сервер…

 

Результат

6

 

Исходники

DataSnap_DataTransfer