На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.


Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
  
> преобразование символов
    Читаю из ком порта . как результат преобразовать в текст. если пробую Char() то получаю иероглифы
    ExpandedWrap disabled
      procedure TCommThread.QueryPort;
      var MyBuff:array [0..66] of Char;
          i: byte;
      Begin
          all_buf:='';
          FillChar(MyBuff,SizeOf(MyBuff),#0);
          ReadFile(ComFile,MyBuff,SizeOf(MyBuff),BytesRead,Nil);
          If BytesRead>0 Then Begin
              for i:=0 to length(Mybuff)-1 do begin
                  all_buf:=all_buf+' '+inttostr(ord(MyBuff[i]));
              end;
             Form1.Memo1.Lines.Text:=(all_buf);
          End;
      end;


    14129 3381 12554 13623 2573 14129 3381 12554 13623 2573
    14129 3381 12554 13623 2573 14129 3381 12554 13623 2573
    14129 3381 12554 13623 2573 14129 3381 12554 13623 2573
    14129 3381 12554 13623 2573 14129 3381 12554 13623 2573
    14129 3381 12554 13623 2573 14129 3381 12554 13623 2573
    14129 3381 12554 13623 2573 14129 3381 12554 13623 2573
      закрыто. копировать вставлять вредно))
        В компорт, вероятно, приходят AnsiChar
          Да я что то затупил. у меня же не текст приходят а цифры только. сделал не массив а один байт читать. и сразу в char
          Сообщение отредактировано: Emmys -
          0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script execution time: 0,0281 ]   [ 16 queries used ]   [ Generated: 28.03.24, 19:12 GMT ]