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

Выпуск № 487
от 29.05.2006, 22:05

Вопрос № 44.072

Подскажите пожалуйста, функцию API или комп. с помощью которой можно читать-писать на физическом уровне на жесткий диск (по секторно особенно если как логич. диск винт не цепляется)

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

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, SergBSI! Скорей всего, в справочнике по WinAPI вы не найдете ф-ий для работы с диском на низком уровне. Вам понадобится работать не с системными вызовами, и даже не с NativeAPI, а с драйвером кон троллера жесткого диска. Если вам необязательно встраивать это в свою программу, то можно попробывать использовать Disk Investigator 1.4

Ответ отправил: Сухомлин Кирилл Владимирович (статус: 6-ой класс) Ответ отправлен: 24.05.2006, 12:39 Оценка за ответ: 4

Вопрос № 44.076

Уважаемые эксперты, помогите решить задачу. Необходимо запустить н-ное количество приложений (для примера - два разных) с известными путями к *.ехе и далее следить за их завершением. В случае завершения какого-либо процесса (например при критической ошибке) необходимо заново запустить данное приложение. Следить за завершением одного процесса при помощи WaitForSingleObject умею, но при этом моя программа зависает до момента завершения запущенного приложения, а как вариант зацикливание и использование Application.ProcessMessages меня не устраивает (сильно загружается процессор). Итак, необходимо: 1. Запустить n приложений. 2. Слежить за этими процессами (известен путь к *.ехе) без зависания и потребления ресурсов. 3. В случае завершения процесса - перезапустить его и опять следить... Жду советов, листингов, исходников или компонент. Спасибо!

Отправлен: 24.05.2006, 10:44 Вопрос задал: Galay (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Лукьяненко Алексей Валериевич Здравствуйте, Galay! Как простейший вариант - создать дополнительный поток, в котором запустить один процесс и ждать его завершения, второй поток - для второго, и т.д.

Ответ отправил: Лукьяненко Алексей Валериевич (статус: 3-ий класс) Ответ отправлен: 24.05.2006, 10:48 Оценка за ответ: 5

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Galay! Есть еще вариант WaitForMultipleObjects, но перезапускать неудачно завершившиеся процесссы сразу после их завершения не получится. Потоки - это не страшно. В данном случае вам не нужна никакая синхронизация, а именно это - самая сложная часть работы с несколькими потоками. Приложение: http://ad.cctpu.edu.ru/SSP/Prof/Glava29/Index6.html http://ad.cctpu.edu.ru/SSP/Prof/Glava29/Index7.html

Ответ отправил: Сухомлин Кирилл Владимирович (статус: 6-ой класс) Ответ отправлен: 24.05.2006, 12:25 Оценка за ответ: 5

Отвечает: Kazakh Здравствуйте, Galay! Примерчик в приложении. Создайте новы проект. Положите на форму Memo1, Memo2, Button1. В Memo1.lines задайте пути к приложениям (для примера 2-3 хватит) компилируйте и разбирайтесь Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShellApi, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Memo2: TMemo; procedure Button1Click(Sender: TObject); private public end; TMyThread = class(TThread) private protected procedure Execute; override; public FThreadName: string; FhApp:Cardinal; constructor Create(AppPath:string); end; var Form1: TForm1; implementation {$R *.dfm} constructor TMyThread.Create(AppPath:string); begin inherited Create(false); FreeOnTerminate:=true; FThreadName:=AppPath; end; procedure TMyThread.Execute; begin inherited; FhApp:=WinExec(PChar(FThreadName),SW_SHOWNORMAL); if FhApp<>0 then WaitForSingleObject(FhApp, INFINITE); // и дальше как вам надо end; procedure TForm1.Button1Click(Sender: TObject); var i:integer; aTh: TMyThread; begin for i:=0 to Memo1.lines.Count-1 do begin aTh:=TMyThread.Create(Memo1.lines[i]); Memo2.Lines.add('Поток '+aTh.FThreadName+' запущен'); Application.ProcessMessages; end; end; end. --------- Если собеседник затрудняется ответить, значит, вопрос поставлен правильно.

Ответ отправил: Kazakh (статус: 9-ый класс) Ответ отправлен: 24.05.2006, 17:40 Оценка за ответ: 5 Комментарий оценки: Вау! супер! Эменно то что надо. Большое спасибо!

Вопрос № 44.106

Здраствуйте,эксперты! Обьясните и если можно покажите смысл ошибки "Statement expected but 'FUNCION' found" в моей программе (в приложении). Заранее благодарен! Приложение: program ogltest; uses Windows,OpenGL,messages; var Wnd:HWND; hRC:HGLRC; dc:hdc; keys:array [0..256]of bool; active:bool; procedure ReSize(H,W:GLsizei); begin if H=0 then h:=1; glViewport(0,0,w,h); glMatrixmode(GL_PROJECTION); glLoadIdentity(); gluPerspective(45.0,w/h,0.1,100.0); glMatrixmode(GL_MODELVIEW); glLOadidentity(); end; function InitGL:bool; begin glShadeModel(GL_SMOOTH); glClearcolor(0.0,0.0,0.0,0.0); glClearDepth(1.0); glEnable(GL_DEPTH_TEST); glDepthFunc(GL_LEQUAL); glHint(GL_PERSPECTIVE_CORRECTION_HINT,GL_NICEST); result:=True; end; function Draw:bool; begin glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); glLoadIdentity(); //Здесь рисовать result:=True; end; procedure Unload; begin if HRC<>0 then begin if not wglMakeCurrent(DC,0) then messagebox(0,'Освобождение RC(Rendring context) и DC(Device context) невозможно.','Ошибка выключения...',MB_OK or MB_ICONERROR); if not wglDeleteContext(HRC) then begin messagebox(0,'Освобождение RC(Rendring Context) невозможно.','Ошибка выключения...',MB_OK or MB_ICONERROR); HRC:=0; end; end; if (DC=1) and (ReleaseDC(wnd,Dc)<>0) then begin messagebox(0,'Освобождение DC(Device context) невозможно.','Ошибка выключения...',MB_OK or MB_ICONERROR); dc:=0; end; if (WND<>0) and (not destroyWindow(wnd)) then begin messagebox(0,'Уничтожение окна невозможно.','Ошибка выключения...',MB_OK or MB_ICONERROR); Wnd:=0; end; if not unregisterclass('OGLClass',hinstance) then messagebox(0,'Невозможно удалить OGL класс.','Ошибка выключения...',MB_OK or MB_ICONERROR); end; function WndProc(wnd:HWND;msg:UINT;wParam:WParam;lParam:LParam):LResult;Stdcall; begin if msg=WM_SYSCOMMAND then begin case wparam of SC_SCREENSAVE,SC_MONITORPOWER: begin result:=0; exit; end; end; case msg of WM_ACTIVATE: begin if Hiword(wparam)=0 then active:=True else active:=False; result:=0; end; WM_CLOSE: begin Postquitmessage(0); result:=0; end; WM_KEYDOWN:begin keys[wparam]:=True; result:=0; end; WM_KEYUP:begin keys[wparam]:=False; result:=0; end; WM_SIZE:begin REsize(hiword(lparam),loword(lparam)); result:=0; end; else begin result:=DefWindowProc(wnd,msg,wparam,lparam); end; end; end; function CreateGLWIndow(title:Pchar;W:integer;H:integer;bits:integer):bool stdcall; var PixelFormat:GLuint; wc:TwndClass; pfd:Pixelformatdescriptor; dwEXstyle:Dword; dwStyle:Dword; WinREct:TRect; h_inst:hinst; begin winrect.Left:=0; winrect.Top:=0; winrect.Right:=w; winrect.Bottom:=h; h_inst:=GetModuleHandle(nil); wc.style:=CS_HREDRAW or CS_VREDRAW or CS_OWNDC; wc.lpfnWndProc:=@WndProc; wc.cbClsExtra:=0; wc.cbWndExtra:=0; wc.hInstance:=h_inst; wc.hIcon:=loadIcon(0,IDI_WINLOGO); wc.hCursor:=LoadCursor(0,IDC_ARROW); wc.hbrBackground:=0; wc.lpszMenuName:=nil; wc.lpszClassName:='OGL'; if registerClass(wc)=0 then begin messagebox(0,'Невозможно зарегистрировать класс WC.','Ошибка включения...',MB_OK or MB_ICONERROR); result:=False; exit; end; dwEXstyle:=WS_EX_APPWINDOW or WS_EX_WINDOWEDGE; dwStyle:=WS_OVERLAPPEDWINDOW or WS_CLIPSIBLINGS or WS_CLIPCHILDREN; adjustWindowRectEx(winrect,dwstyle,false,dwExstyle); wnd:=CreateWindowEx(dwExStyle,'OGL',title,dwStyle,100,100,winrect.Right-winrect.Left,winrect.Bottom-winrect.Top,0,0,hInstance,nil); if wnd=0 then begin messagebox(0,'Неудалось создать окно.','Ошибка включения...',MB_OK or MB_ICONERROR); Unload; result:=False; exit; end; pfd.nSize:=Sizeof(PIXELFORMATDESCRIPTOR); pfd.nVersion:=1; pfd.dwFlags:=PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER; pfd.iPixelType:=PFD_TYPE_RGBA; pfd.cColorBits:=bits; pfd.cRedBits:=0; pfd.cRedShift:=0; pfd.cGreenBits:=0; pfd.cGreenShift:=0; pfd.cBlueBits:=0; pfd.cBlueShift:=0; pfd.cAlphaBits:=0; pfd.cAlphaShift:=0; pfd.cAccumBits:=0; pfd.cAccumRedBits:=0; pfd.cAccumGreenBits:=0; pfd.cAccumBlueBits:=0; pfd.cAccumAlphaBits:=0; pfd.cDepthBits:=16; pfd.cStencilBits:=0; pfd.cAuxBuffers:=0; pfd.iLayerType:=PFD_MAIN_PLANE; pfd.bReserved:=0; pfd.dwLayerMask:=0; pfd.dwVisibleMask:=0; pfd.dwDamageMask:=0; dc:=GetDC(wnd); if DC=0 then begin messagebox(0,'НеУдалось получить DC(Device Context).','Ошибка включения...',MB_OK or MB_ICONERROR); UNload; result:=False; Exit; end; PixelFormat:=ChoosePixelFormat(dc,@pfd); if pixelformat=0 then begin messagebox(0,'НеУдалось найти подходящий формат пиксела.','Ошибка включения...',MB_OK or MB_ICONERROR); unload; result:=False; Exit; end; if not SetPixelFormat(dc,PixelFormat,@pfd) then begin messagebox(0,'НеУдалось установить формат пиксела.','Ошибка включения...',MB_OK or MB_ICONERROR); unload; result:=False; exit; end; hrc:=WglCreateContext(dc); if hrc=0 then begin messagebox(0,'Невозможно создать HRC.','Ошибка включения...',MB_OK or MB_ICONERROR); Unload; result:=False; exit; end; if (not wglMakeCurrent(dc,hrc)) then begin messagebox(0,'Не удалось установить параметры окна.','Ошибка включения...',MB_OK or MB_ICONERROR); unload; result:=False; exit; end; showwindow(wnd,SW_SHOW); setForegroundwindow(wnd); setFocus(wnd); resize(h,w); if not initGl then begin messagebox(0,'Ошибка инициализации OрenGl`я.','Ошибка включения...',MB_OK or MB_ICONERROR); Unload; result:=False; exit; end; result:=True; end; function winMain(hinstance:HINST;hprevinstance:HINST;lpcmdLine:Pchar;nCmdShow:integer):integer; var msg:Tmsg; done:bool; begin done:=False; if not CreateGLWindow('OpenGl Window',640,480,16) then begin result:=0; exit; end; while not done do begin if peekmessage(msg,0,0,0,PM_REMOVE) then begin if msg.message=WM_QUIT then done:=True else begin translatemessage(msg); Dispatchmessage(msg); end; end else begin if (active and not Draw()) or keys[VK_escape] then done:=True else SwapBuffers(dc); end; end; unload; result:=msg.wParam; end; begin winMain(hinstance,hPrevinst,cmdline,cmdshow); end.

Отправлен: 24.05.2006, 16:09 Вопрос задал: chikanok (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Проходящий Мимо Здравствуйте, chikanok! Вам нужно перед function CreateGLWIndow... поставить "end;" : end; function CreateGLWIndow(title: Pchar; W: integer; H: integer; bits: integer): bool; stdcall; --------- Carpe diem!

Ответ отправил: Проходящий Мимо (статус: 4-ый класс) Ответ отправлен: 24.05.2006, 16:27

Вопрос № 44.115

Здравствуйте Уважаемые Эксперты! Кто нибуть знает, как поставить на Delphi 7 - 2006 компоненты откомпилированные на Delphi 5 или меньше? Исходного кода компонентов не имеется. Заранее Спасибо.

Отправлен: 24.05.2006, 17:58 Вопрос задал: Шишкин М.А. (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Николай Б. Здравствуйте, Шишкин М.А.! При установке компонентов создаются библиотеки *.bpl. Они расположены в папке C:windows или C:windowssystem (C:windowssystem32). В меню Delphi 7 выбираете установку компонента и указываете *.bpl-файл. Компонент установится. Как устанавливать в BDS 2005 (2006) - не знаю. Под них всё по-другому и пока ещё под них мало компонентов. Удачи. ЗЫ: если что, пишите в мини-форум. --------- Недавно прошёл тест на IQ. Результат отрицательный.

Ответ отправил: Николай Б. (статус: 9-ый класс) Ответ отправлен: 24.05.2006, 18:52

Вопрос № 44.134

Привет всем. Я работаю с FTP в локальной сети. Идет обмен больших объемов информации. Но когда начинается прием или передача, то видно визульно торможение программы(к тому же она кушает 50% проца). Программа не зависает, и через некоторое вермя результат работы отображается. Хотелось бы каким либо способом избавится от этого явления. Главное чтобы пользователь не думал, что программа зависла. Посовутейте что-нибудь.

Отправлен: 24.05.2006, 21:27 Вопрос задал: CJ (статус: Практикант) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Bochvarov NikB Здравствуйте, CJ! Надо применят tThread, я не пробовал конкретно с FTP, но с универсалньим сокетам все ОК.

Ответ отправил: Bochvarov NikB (статус: 8-ой класс) Ответ отправлен: 24.05.2006, 21:44

Отвечает: Ерёмин Андрей Здравствуйте, CJ! Наверняка обмен данными у вас идёт блоками/пакетами, т.е. своеобразным циклом. Попробуйте найти такое событие, которое периодически выполняется при передаче данных и добавьте туда такую строку: Application.ProcessMessages; --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 25.05.2006, 07:50

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.33 от 25.05.2006