/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 804
от 09.05.2007, 04:35

Вопрос № 85.190

Здравствуйте уважаемые!Подскажите пожалуйста функции которые смогли бы перевести M:array[1..n]of char; в str:string; и обратно.И ещё в своём приложении мне надо считать из бинарного файла один из элементов его структуры tipfile:array [1..4] of byte; в строку.Я это делаю read'ом в M:array[1..4]of char; а могу ли я это делать в str:string[4].

Отправлен: 03.05.2007, 06:45 Вопрос задал: GAZOT (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Ерёмин Андрей Здравствуйте, GAZOT! Ну вроде ничего сложного нет... Сначала объявляем тип данных "массив символов": type TCharArr = Array Of Char; И дальше функции... Перевод в строку: function CharArrToString(Arr: TCharArr): String; var i: integer; begin Result:=''; for i:=0 to Length(Arr)-1 do Result:=Result+Arr[i]; end; И обратно: function StringToCharArr(Str: String): TCharArr; var i: integer; begin SetLength(Result,Length(Str)); for i:=1 to Length(Str) do Result[i-1]:=Str[i]; end; Обратите внимание, что если не описывать указанный тип данных, то с реализацией таких функций возникнут проблемы. Желаю удачи! --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на Delphi. Помощь, советы, обмен опытом. ICQ: 286837644 ---- Ответ отправлен: 03.05.2007, 08:35 Оценка за ответ: 4 Комментарий оценки: я вижу что ничего сложного нет просто думал есть стандартные ф-ции типа inttostr или strtoint,а на второй вопрос я так и не получил ответ

Отвечает: Zubex Здравствуйте, GAZOT! Смотрите в приложении... Удачи! Приложение: //1. Перевод строк и массивов procedure TForm1.Button1Click(Sender: TObject); const n=10; M:array [1..n] of char=('1','2','3','4','5','6','7','8','9','0'); var str:String; begin //Массив в строку SetLength(str,n); Move(M[1],str[1],n); ShowMessage(str); //Строку в Массив str:='0987654321'; Move(str[1],M[1],n); ShowMessage(M); end; //2. Чтение из бинарного файла в разные виды переменных procedure TForm1.Button2Click(Sender: TObject); var FS:TFileStream; str:string; M:array[1..4]of char; tipfile:array [1..4] of byte; begin FS:=TFileStream.Create('e:123.bin',fmOpenRead); try //Вариант 1 FS.Position:=0; FS.Read(M,4); //Вариант 2 FS.Position:=0; FS.Read(tipfile,4); //Вариант 3 FS.Position:=0; SetLength(str,4); FS.Read(str[1],4); ShowMessage(str); finally FS.Free; end; end; --------- Если не знаешь что сказать - лучше промолчи...

Ответ отправил: Zubex (статус: 7-ой класс) Ответ отправлен: 03.05.2007, 10:54 Оценка за ответ: 4

Отвечает: Denisss Здравствуйте, GAZOT! Для копирования из массива в строку можно использовать процедуру Move (пример с подробнейшими комментариями см. в приложении). Если Вы можете считать в массив символов, то можете и в строку str. В Delphi (за исключением .Net версий) строки - это и есть массивы. Приложение: uses Math, ... .... const n = 4; var // Массив M: array[1..n] of Char; // Строка myStr: String; // Строка, длиной в n символов str: String[n]; begin // Здесь я использовал Edit1 как источник // текста myStr:= Edit1.Text; ///////////// Копирование из строки в массив ///////////////// // Перед использованием массива, будет лучше, // если его заполнить нулями (#0) // Функция Length(M) возвращает длину массива // В данном случае, ее можно заменить на n, но // чаще всего массивы берут в диапазоне // [0..n], потому, использование этой функции // более универсально, и будет работать // даже если, например, взять массив [7..n] ZeroMemory(@M, Length(M)); // Сама процедура копирования // Первый параметр - источник, из которого // происходит копирование - в данном случае, это строка // // Второй параметр - куда копировать. В данном случае, // это массив М. Можно также использовать M[2], // тогда копирование будет происходить в массив, // начиная с ячейки №2 // // Третий параметр - длина копируемой области // Здесь используется функция Min, которая объявлена // в модуле Math (не забудьте прописать модуль // в uses). Его можно с легкостью заменить на // if ... then // Минимальная длина берется затем, что мы не можем // копировать в массив [1..n] более, чем n // символов, если длина строки больше // длины массива. А если длина строки меньше, // чем длина массива, то мы не можем из нее // копировать n символов Move(MyStr[1], M[1], Min(Length(myStr), Length(M))); ///////////// Копирование из массива в строку ///////////////// // Устанавливаем длину строки равной // длине массива М SetLength(myStr, Length(M)); SetLength(str, n); // Опустошаем строки ZeroMemory(@myStr[1], Length(myStr)); ZeroMemory(@str[1], Length(str)); // Копируем из массива в строку Move(M[1], MyStr[1], Length(M)); // Аналогично можно копировать и в строку // с фиксированной длиной Move(M[1], str[1], n); // В Label1 выводим результат, чтобы // можно было его увидеть собственными глазами ;-) Label1.Caption:= myStr; // В Label2 выводим фиксированную строку Label2.Caption:= str; end;

Ответ отправил: Denisss (статус: Профессионал) Россия, Москва WWW: Хлама много, по сути ничего... ICQ: 281599577 ---- Ответ отправлен: 03.05.2007, 11:20 Оценка за ответ: 5 Комментарий оценки: спасибо за очень подробный ответ

Вопрос № 85.203

Уважаемые эксперты, помогите. Разрабатываю простой эммулятор работы микросхемы "И", по нажатию кнопок ОДИН и НОЛЬ на форме рисуется временная диаграмма. Вопрос 1: как сделать так, чтобы эти кнопки были не видимые и срабатывали по нажатию 1 или 0 на клавиатуре? Вопрос 2: как создать массив, состоящий из 0 и 1 при по нажатию данных клавиш (2 массива) ? Приложение: рисование по нажатию единицы: procedure TForm1.bOneClick(Sender: TObject); vaR k:integer; s:string; begin if checkbox1.Checked=true then begin if CurY<>y-10 then begin tabcontrol1.Canvas.LineTo(CurX,CurY-10); CurY:=CurY-10; end; tabcontrol1.Canvas.LineTo(CurX+10,CurY); CurX:=CurX+10; mas1[i]:=1; end; if checkbox2.Checked=true then begin if CurY<>y-10 then begin tabcontrol2.Canvas.LineTo(CurX,CurY-10); CurY:=CurY-10; mas2[i]:=1; end; tabcontrol2.Canvas.LineTo(CurX+10,CurY); CurX:=CurX+10; end;

Отправлен: 03.05.2007, 09:19 Вопрос задал: Садовский А.А. (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Denisss Здравствуйте, Садовский А.А.! 1. Кнопки делать невидимыми не надо. Если они не нужны, то их и не нужно создавать. Чтобы сделать у формы обработчик нажатия клавишь, нужно: 1.1. Установить свойство формы KeyPreview = True 1.2. Создать обработчик (двойным кликом мыши) события (на закладке Events свойств формы) OnKeyPress, в нем прописать: procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); var k: Integer; s: String; begin case Key of '1': begin Сюда пишете обработчик нажатия на кнопку 1 end; '0': begin Сюда пишете обработчик нажатия на кнопку 0 end; end; end; 2. Второй Ваш вопрос мне не совсем понятен. Массивы задаются с помощью команды array. Пример: Massiv: array[0..100] of Byte; Также массивы можно реализовывать с помощью класса TList. PS Проверку: if checkbox2.Checked=true then begin Нужно делать короче: if checkbox2.Checked then begin В Вашем случае Delphi делает следующее: 1. Проверяет содержимое checkbox2.Checked 2. Сравнивает его с True (результат в виде boolean) 3. Сравнивает результат сравнения с True Во втором случае Delphi будет делать: 1. Проверяет содержимое checkbox2.Checked 2. Сравнивает его с True Как видите, второй вариант применять оптимальнее

Ответ отправил: Denisss (статус: Профессионал) Россия, Москва WWW: Хлама много, по сути ничего... ICQ: 281599577 ---- Ответ отправлен: 03.05.2007, 11:55

Вопрос № 85.237

Уважаемые эксперты, подскажите как перехватить событие: а)допустим мое приложение работает б)убиваем процесс именно через Диспетчер задач виндовс (а не просто через OnClose) Вопрос: какое сообщение посылает виндовс моему приложению чтобы оно закрылось - я думал что это Windows.PROCESS_TERMINATE (см. ниже) или как вообще перехватить закрытие? Я делаю так, только это не работает: .. ApplicationEvents1: TApplicationEvents; .. procedure TFCli.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin Handled:=false; if (Msg.message=WM_CLOSE) or (Msg.message=WM_DESTROY) or (Msg.message=WM_Quit) or (Msg.message=Windows.PROCESS_TERMINATE) or (Msg.message=Windows.SC_CLOSE) then begin ... end; end; Заранее благодарен.

Отправлен: 03.05.2007, 12:15 Вопрос задал: Ренат Байрамгулов (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: chikanok Здравствуйте, Ренат Байрамгулов! Windows не посылает не каких сообщений, когда вырубают через Диспетчер. Диспетчер вызывает функцию ZwTerminateProcess из NativeAPI. Можно перехватить вызов данной функции и самому послать сообщение, после чего сделать задержку для того что бы приложение успело его обработать, а после убить. А ещё лучше после перехвата проверить имя процесса если ваш то не убивать его, а просто послать сообщение. Для перехвата легче всего написать небольшую библиотеку(код в приложении). Но у меня не получается получить имя завершаемого процесса('GetProcessImageFileNameA'). Приложение: Код главного модуля библиотеки library Project2; uses Windows,Sysutils, Unit1 in 'Unit1.pas'; type OldCode = packed record One: dword; two: word; end; far_jmp = packed record PuhsOp: byte; PushArg: pointer; RetOp: byte; end; var JmpTp: far_jmp; OldTp: OldCode; TpAdr: pointer; function TrueZwTerminateProcess(ProcessHandle:Handle;ExitStatus:NTSTATUS):NTSTATUS;stdcall; var Bytes:dword; begin writeProcessMemory(INVALID_HANDLE_VALUE,TpAdr,@OldTp,SizeOf(OldCode),Bytes); Result:=ZwTerminateProcess(ProcessHandle,ExitStatus); WriteProcessMemory(INVALID_HANDLE_VALUE,TpAdr,@JmpTp,SizeOf(far_jmp),Bytes); end; function NewZwTerminateProcess(ProcessHandle:Handle;ExitStatus:NTStatus):NTSTATUS;stdcall; begin //Здесь надо послать сообщение или проверить имя процесса result:=TrueZwTerminateProcess(ProcessHandle,ExitStatus); end; Procedure SetHook(); var hntdll: dword; Bytes: dword; begin hntdll := GetModuleHandle('ntdll.dll'); TpAdr := GetProcAddress(hntdll, 'ZwTerminateProcess'); ReadProcessMemory(INVALID_HANDLE_VALUE, TpAdr, @OldTp, SizeOf(OldCode), Bytes); JmpTp.PuhsOp := $68; JmpTp.PushArg := @NewZwTerminateProcess; JmpTp.RetOp := $C3; WriteProcessMemory(INVALID_HANDLE_VALUE, TpAdr, @JmpTp, SizeOf(far_jmp), Bytes); end; Procedure Unhook(); var Bytes: dword; begin WriteProcessMemory(INVALID_HANDLE_VALUE, TpAdr, @OldTp, SizeOf(OldCode), Bytes); end; Function MessageProc(code : integer; wParam : word; lParam : longint) : longint; stdcall; begin CallNextHookEx(0, Code, wParam, lparam); Result := 0; end; Procedure SetGlobalHookProc(); begin SetWindowsHookEx(WH_GETMESSAGE, @MessageProc, HInstance, 0); Sleep(INFINITE); end; Procedure SetGlobalHook(); var hMutex: dword; TrId: dword; begin hMutex := CreateMutex(nil, false, 'TpHook'); if GetLastError = 0 then CreateThread(nil, 0, @SetGlobalHookProc, nil, 0, TrId) else CloseHandle(hMutex); end; procedure DLLEntryPoint(dwReason: DWord); begin case dwReason of DLL_PROCESS_ATTACH: begin SetGlobalHook(); SetHook() end; DLL_PROCESS_DETACH: UnHook(); end; end; begin DllProc := @DLLEntryPoint; DLLEntryPoint(DLL_PROCESS_ATTACH); end. Код дополнительного модуля uses Windows; const ntdll='ntdll.dll'; psapi='psapi.dll'; type NTSTATUS=longInt; Handle={$IFDEF USE_DELPHI_TYPES}Windows.THandle{$ELSE}Longword{$ENDIF}; function GetProcessImageFileName(hProcess:Handle;lpImageFileName:pchar;nSize:Dword):Dword;stdcall; {$EXTERNALSYM GetProcessImageFileName} function ZwTerminateProcess(ProcessHandle:Handle;ExitStatus:NTStatus):NTSTATUS;stdcall; {$EXTERNALSYM ZwTerminateProcess} implementation function ZwTerminateProcess; external ntdll name 'ZwTerminateProcess'; function GetProcessImageFileName; external psapi name 'GetProcessImageFileNameA'; end. При загрузке вашего приложения надо вызвать функцию LoadLibrary('имя_библиотеки_например_Project2') --------- Главное желание,а там разберёмся!

Ответ отправил: chikanok (статус: 3-ий класс) Ответ отправлен: 04.05.2007, 12:08 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо!

Вопрос № 85.275

Как с помощью функции winexec можно запускать интернет ссылку в браузере, который стоит поумолчанию.

Отправлен: 03.05.2007, 16:13 Вопрос задал: Soadbest (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Ерёмин Андрей Здравствуйте, Soadbest! С помощью WinExec не получится (ну хотя есть способ), но проще через Shell. Добавьте в uses модуль ShellAPI, а дальше так: ShellExecute(0,'open','http://www....','','',SW_SHOWNORMAL); Удачи! --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на Delphi. Помощь, советы, обмен опытом. ICQ: 286837644 ---- Ответ отправлен: 03.05.2007, 18:04

Отвечает: Gh0stik Здравствуйте, Soadbest! Поскольку WinExec - считается морально устарелой, то советую Вам воспользоваться ShellExecute Например так: ShellExecute(Handle, nil, 'http://www.mail.ru', nil, nil, SW_SHOW); Только при использовании ShellExecute - не забудьте прописать в uses ShellApi; Ну, а если Вам все-таки хочется использовать WinExec - то Вам предварительно прийдется узнать какой браузер в системе стоит по умолчанию... - поскольку первый параметр у даной функции есть команда. Good Luck!!! --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 03.05.2007, 18:10

Вопрос № 85.290

Уважаемые эксперты. Как можно создать дерево классов средствами Delphi 7.0?

Отправлен: 03.05.2007, 17:32 Вопрос задал: Култышев Владимир (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Gh0stik Здравствуйте, Култышев Владимир! Вот пример который я нашел в сети: # Иерархия классов Поскольку в ходе компиляции данного примера у меня возникли ошибки, я немного его переделал - смотрите прикрепленный файл. И в довесок к этому также даю ссылки еще на пару примеров, возможно они Вам пригодятся: # Все 270 классов Delphi # Вывести информацию о классах Good Luck!!! Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 03.05.2007, 20:38

Вопрос № 85.292

Здрасте!!! Для того, чтобы перехватить сообщения прокрутки ListBox'а (если я правильно понимаю) нужно создать класс от TListBox с процедуркой перехватывающей WM_VSCROLL и WM_HSCROLL. Так вот это я сделал, сообщения перехватываются. А как заставить ListBox прокрутиться? Может есть другие способы перехвата прокрутки, запоминать на скока прокрутился при обновлении списка прокрутить на запомненную величину?

Отправлен: 03.05.2007, 18:22 Вопрос задал: Beginner (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: PGM Здравствуйте, Beginner! 1. Попробуйте так SendMessage(ListBox.Handle, LB_SETTOPINDEX, Index, 0), где Index это индекс того элемента, который должен быть самой верхней строкой (если количество элементов достаточное, иначе будут показаны последние элементы, попадающие в видимую область). Перед этим, используя результат функции SendMessage(ListBox.Handle, LB_GETTOPINDEX, 0, 0) можно узнать текущий "верхний" элемент - и прибавить к нему запомненное вами смещение для прокрутки. 2. Возможно, гораздо проще при перехвате отправлять сообщение дальше (вызывать родительский обработчик) и тогда не понадобится других действий.

Ответ отправил: PGM (статус: 6-ой класс) Ответ отправлен: 04.05.2007, 10:43

Вопрос № 85.309

Здравствуйте, мне необходимо передавать данные скрипту на удаленном сервере, и получить результат выполнения скрипта в виде html кода. Передаю данные с помощью idhttp.get(); Как принимать результат выполнения(в виде текста)?

Отправлен: 03.05.2007, 19:55 Вопрос задал: Lobach Sergei (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Ерёмин Андрей Здравствуйте, Lobach Sergei! Метод Get как раз и возвращает результат работы в виде строки. Поэтому код будет примерно таким: var res: string; ... res:=idHTTP.Get('url'); --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на Delphi. Помощь, советы, обмен опытом. ICQ: 286837644 ---- Ответ отправлен: 03.05.2007, 21:22

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.52 (beta) от 02.05.2007