UDF str2blob

[Junker]

Возникла проблемма при возвращении блоба удфкой:

function str2blob(str:PChar; Blob: PIB_Blob):PIB_BLOB; cdecl; export;
begin
result:= Blob;
if not Assigned(Blob) or not Assigned(Blob^.Handle) then
Exit;
blob^.PutSegment(Blob^.Handle, str, StrLen(Str));
end;


Возвращает вместо введенной строки мусор, правда длинну строки соблюдает.... Компилилось на FPC 2.0.2 под винды... что не так? может кто сталкивался, подскажите...

[kdv]

ты бы примеры на сайте посмотрел. Статью Кукарцева, udfdemo и т.п. Указатель на блоб из функции вернуть нельзя, вообще то. Можно только через входной параметр.

[Junker]

Это то понятно... В случае с функцией, указатель на блоб возвращается через входной параметр, а не через стандартный вывод... При переводе на процедуру результат не поменялся...

procedure str2blob(str:PChar; Blob: PIB_Blob); cdecl; export;
begin
if not Assigned(Blob) or not Assigned(Blob^.Handle) then
Exit;
blob^.PutSegment(Blob^.Handle, str, StrLen(str));
end;

[kdv]

пример брал из FreeUDFLib, с сайта, самый последний вариант? Декларация putsegment совпадает? Функция из FreeUDFLib работает так же? Отлаживать функцию в Delphi пробовал?