Страница 2 из 2
Re: Функция преобразование char * в UTF8String в DLL
Добавлено: 11.08.2015 20:00:55
Снег Север
Branntweiner, а почему бы вам не спросить на форуме разработчика -
http://zengl.org/forum/
Re: Функция преобразование char * в UTF8String в DLL
Добавлено: 12.08.2015 16:59:31
Branntweiner
Писал, но сейчас разработка остановлена, и не планируется его портирование на С. В любом случае, материал нашелся, поэтому буду разбираться что к чему.
Re: Функция преобразование char * в UTF8String в DLL
Добавлено: 10.09.2015 16:29:34
Cheb
См. как образец, только кодировка другой (переделай для фпц >= 2.7):
Код: Выделить всё
function PCharToString(P: PAnsiChar): AnsiString;
var
i: integer;
p2: PAnsiChar;
begin
if not Assigned(p) then Result:=''
else try
p2:=p;
i:=0;
While p2^ <> #0 do begin
inc(p2);
inc(i);
end;
SetLength(Result, i);
Move(p^, Result[1], i);
except raise Exception.Create('AV in PCharToString() : ' + inttohex(ptruint(p),8) + 'h, count = '+ IntToStr(i)) end;
end;