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

Форум для изучающих FPC и их учителей.

Модератор: Модераторы

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

Сообщение Снег Север » 11.08.2015 21:00:55

Branntweiner, а почему бы вам не спросить на форуме разработчика - http://zengl.org/forum/
Аватара пользователя
Снег Север
долгожитель
 
Сообщения: 2993
Зарегистрирован: 27.11.2007 16:14:47

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

Сообщение Branntweiner » 12.08.2015 17:59:31

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

Писал, но сейчас разработка остановлена, и не планируется его портирование на С. В любом случае, материал нашелся, поэтому буду разбираться что к чему.
Branntweiner
незнакомец
 
Сообщения: 8
Зарегистрирован: 09.08.2015 20:57:27

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

Сообщение Cheb » 10.09.2015 17:29:34

См. как образец, только кодировка другой (переделай для фпц >= 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;
Аватара пользователя
Cheb
энтузиаст
 
Сообщения: 994
Зарегистрирован: 06.06.2005 15:54:34

Пред.

Вернуться в Обучение Free Pascal

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6

Рейтинг@Mail.ru
cron