MSSQL DELPHI OLE Бинарные данные, изображение #349647

в DELPHI через OLE получаю ТаблицуЗначений в которой имеется поле с Изображением представленное как ДвоичныеДанные. Как этот двоичный объект(переменная, поле, незнаю как назвать) можно включить в SQL запрос через ADO чтобы заинсертить в поле типа IMAGE пробывал преобразовывать в поток, который потом передавать как параметр запросу, неполучилось.... Плиз ХЕЛП!

var Base64String:String; ....... ....... Base64String:=BaseOle.Base64Строка(СтрокаТЗ.Изображение); Это мы получим ДвоичныеДанные в виде Base64 строки, доступной в Дельфи. Теперь ищем Base64Encode - алгоритм на Дельфи (желательно без строкового цикличного ресайзинга) и пишем сырые данные в TBlobStream. Ну а дальше - ADO. Base64Encode могу скинуть вечером...

+ Еще можно попробовать ComSafeArray, но он в восьмерке кривовато реализован, не пробовал...

Спасибо попробую. алгоритм нашел, если кому пригодиться то вот function EncodeBase64(Value: String): String; const    Result := b64alphabet[(W shr 18) and $3f] +              b64alphabet[(W shr 12) and $3f] +              b64alphabet[(W shr 06) and $3f] +              b64alphabet[(W shr 00) and $3f];    if n <> 3 then  while Length(Value) > 0 do    for i := 1 to 4 do  if Length(Value) mod 4 <> 0 then Exit;  while Length(Value) > 0 do

только думаю не Base64String надо не String а что нить типо WideString

Нет. String Хероватый алгоритм

Result := Result + Chr Надо типа так Buffer:Pointer; GetMem(Buffer,Length(Value)); PTR(Cardinal(Buffer)+i)^:=Chr(....

И еще оптимизируем, ибо вдруг у вас нехилые картинки будут GetMem(Buffer,Round(Length(Value)*0.75)+1);

пасиб, но если не сложно всеже скинь весь алгоритм на grifonspb@mail.ru не к спеху..

ок

Вопрос спросить хочу

Все равно не получается.... 1с в таблиц значений которую получаю в делфи Фото это base64Строка(ФотоВДвоичном); Delphi ..... Stream:TMemoryStream; .....      'set @a=(select max(ID)+1 from pList)'+      'insert into pList(ID,Name,FirstName,MidName,Status,WorkPhone,Picture,BirthDate,Company,Post,TabNumber)'+

ругается насчет параметра

если Picture:=TZ.Получить(i).Фото - бинарные данные, то Stream:=TStringStream.Create(MimeEncodeString(Picture)); try

Добавь TMemo на форму и выведи туда текст Picture до декодирования

ну дык, йо.

Пробывал, там был текст закодированный base64, вроди все норм Ща папробую...