blob поле, передача в виде string

[BARNEY]

Имеет клиент северное приложение написанное на indyTCP

схема такая что клиент время от времени отсылает данные на сервер.
в виде готовых SQL запросов. т.е. данные собираются по таблице строковую
переменную и отсылаются на сервере парсятся и выполняются.

пример

str:='insert into table values (....)';

теперь встала задача запихать фото в базу... с этим проблем у меня не возникло у клиента. Но встала проблема как передать клиенту blob поле в виде готового sql запроса.

побывал так

str:=qq.fields[2].asString;

но присваивает только до первого #0

пробовал так

blobF:Tblobfiled;
begin
blobF:=qq.fields[2].asBytes;
end;

получили красивый массив байт
но как дальше передать ..тямы не хватило.

заранее благодарен за помощь.

[Аватар]

В виде готового SQL-запроса не получится. На клиенте перекодировал бы в символьный вид (например BASE64), передал бы как строку символов. На сервере обратное преобразование и через ADOQuery запись в базу. Воможно и без преобразования в символьный можно обойтись, но в мемо SQL запросом слабо записать, без ADOQuery не обойтись

[BARNEY]

спасибо за подсказку.
решил проблему с помощью

uses EncdDecd;
 
// Кодирует поток в Base64
procedure EncodeStream(Input, Output: TStream);
// Декодирует поток из Base64 в нормальный вид
procedure DecodeStream(Input, Output: TStream);
// Кодирует строку в Base64
function  EncodeString(const Input: string): string;
// Декодирует строку из Base64 в нормальный вид
function  DecodeString(const Input: string): string;