Функция преобразование char * в UTF8String в DLL

[Снег Север]

Branntweiner, а почему бы вам не спросить на форуме разработчика - http://zengl.org/forum/

[Branntweiner]

Branntweiner, а почему бы вам не спросить на форуме разработчика - http://zengl.org/forum/

Писал, но сейчас разработка остановлена, и не планируется его портирование на С. В любом случае, материал нашелся, поэтому буду разбираться что к чему.

[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;