Ребята подскажите как будет выгладеть ассемблерный код function My(buff: PChar; Count: Dword): Dword; assembler begin { Здесь нужно пробежаться и допустим просчитать сумму в buff[1] .. buff[Count] а в buff[Count+1]- buff[Count+4] засунуть эту сумму Dword только байты не перевёрнутые И её же засунуть в result. } end; Заранее благодарен. Игорь.
Ответ отправлен: 30.07.2003, 20:00 Отправитель: Артём Шегеда Отвечает Bob Johnson
Здравствуйте, Игорь!
push esi xor edx, edx mov esi, [buff] xor eax, eax mov ecx, [Count] @@1: mov dl, [esi] inc esi add eax, edx dec ecx jnz @@1 mov [esi], eax mov [Result], eax pop esi
* EMan1.5: ---===*** The hell we've created ourselves ***===---
Ответ отправлен: 31.07.2003, 13:14 Отправитель: Bob Johnson
Вопрос № 811
Здраствуйте, Коллеги Эксперты. Не знаете ли где в интернете можно откопать хорошую книгу по теме "Direct3D-графика в Delphi"? Или может у кого есть информация на эту тему?
Здравствуйте, URiS! Самому бы тоже нужно. :) Только вот где найти. А инфы в сети полно - но она какая-то разрозненная, нужно бы книгу, где собрано все нужное.
Ответ отправлен: 31.07.2003, 02:57 Отправитель: Marouder Отвечает Zensor_
Здравствуйте, URiS! firststeps.ru в разделе для dx3D. Ответ отправлен: 31.07.2003, 08:18 Отправитель: Zensor_ Отвечает Дима Мусиенко
Добрый день, URiS! Хорошошую книжку, увы, посоветовать немогу, я под OpenGL пишу. А пару сайтов хороших могу сакзать, впрочем может ты их и знаешь.
Приложение: Ответ отправлен: 31.07.2003, 09:31 Отправитель: Дима Мусиенко Отвечает Bob Johnson
Здравствуйте, URiS! Копай в сторону DirectX SDK. Все функции будут теме же, только придется со структурами повозиться. В этом плане лучше - Bulder, т.к. к нему можно h файлы подключить. А еще лучше VC++, т.к. тебе все равно никакой стандартный интерфейс не нужен, раз ты D3D хочешь использовать - все равно надо будет самому его делать.
* EMan1.5: ---===*** The hell we've created ourselves ***===---
Ответ отправлен: 31.07.2003, 13:17 Отправитель: Bob Johnson
Вопрос № 812
Здравствуйте эксперты! Помогите с кодом, может у кого есть. Нужно разложить караоке файл (*.kar) на 3 - миди, текст и синхроданные. Буду очень признателен за любую помощь. С ув. Игорь igor@dja.sf.ukrtel.net
Добрый день, Маринин Игорь! Поищи в интернете какой-либо midi конвертер. Я недавно такой видел, но не помню, где, т.к. искал совсем другое.
* EMan1.5: ---===*** The hell we've created ourselves ***===---
Ответ отправлен: 31.07.2003, 13:20 Отправитель: Bob Johnson
Вопрос № 814
Привет всем, как в Delphi можно сделать exe файл, который бы исполнял в командном строке напр. myfile.exe param_1 param_2 или подскажите где найти информацию. Спасибо.
Доброе время суток, GASTON! используйте функции ShellExecute(Ex), WinExec, CreateProcess на ваше усмотрение. Ответ отправлен: 01.08.2003, 08:37 Отправитель: vitya Отвечает ART_43
Добрый день, GASTON! ShellApi.ShellExecute(0,PChar('open'),PChar(path+'myfile.exe'),PChar('param_1 param_2'),nil,SW_SHOW); Ответ отправлен: 01.08.2003, 10:22 Отправитель: ART_43 Отвечает Bob Johnson
Добрый день, GASTON! Чтобы запустить другую программу можно использовать CreateProcess или WinExec. Чтобы выполнять команды, типа cd, md, и т.д. необходимо вызвать командный интерпретатор (command.com под windows98, cmd.exe под Win XP).
* EMan1.5: ---===*** The hell we've created ourselves ***===---
Ответ отправлен: 01.08.2003, 10:49 Отправитель: Bob Johnson
Вопрос № 815
Здравствуйте ув. эскперты! Нужно сделать следующее: При открытии приложения должно появится окошко критической ошибки с характерным звуком (который настроен в винде для крит. ошибки) и текстом "Текст ошибки" Подскажите, как бы это все провернуть... В delphi я ламо (см.ник ;)), если можно, поподробней Заранее спасибо...
Добрый день, lamo! MessageBeep(MB_ICONERROR); MessageDlg('Ошибка', mtError, [mbOK], 0); Ответ отправлен: 01.08.2003, 14:52 Отправитель: ART_43 Отвечает kvINT
Добрый день, lamo! В обработчике события onShow своей главной формы напиши beep; ShowMessage('текст ошибки') Ответ отправлен: 03.08.2003, 09:46 Отправитель: kvINT Отвечает Vdr
Здравствуйте, уважаемые эксперты! Подпкажите пожалуйста, как можно перебрать поочерёдно все записи в таблице базы данных, занося при переборе одно из полей таблицы(ToMailsend) с структуру, определённую как tupedef struct { AnsiString Namefile; AnsiString ToMailsend; } Rec; Таблица базы данных - DBF-файл формата FoxPro
Приложение: Ответ отправлен: 01.08.2003, 15:01 Отправитель: ART_43
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.