Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Сворачивание программы Добрый День! Ситуация такая, сделал программку, ведут учет клиентов. Есть главное меню, из которого открывается форма для клиентов (в ней заносятся данные редактируются и т.д.) открывается при помощи showmodal. и сталкнулся с такой проблемкоё, если сворачиваеш вторую форму, то основная остается висеть мертвым грузом на рабочем столе. Я понимаю что так как вторая форма становится главной и пока её... https://www.cyberforum.ru/ delphi-beginners/ thread947606.html Delphi Подсчет рейтинга
Максимальное количество участников турнира может быть 10000. Очки присуждаются следующим образом: 1. Топ 1/16. (При поле в 800 игроков это топ-50.) Для топ 1/16 игроков очки распределяются линейно. Поэтому разница между двумя соседними местами относительно невелика. 2. От топ 25% до топ 1/16. Очки возрастают логарифмически.
Delphi enter в TWebBrowser Привет гуру, проблема такая есть форма для заполнения в TWebBrowser, заполняю Edit на форме нажимаю кнопку данные вставляются в TWebBrowser, проблема заключается в том что нужно после вставки в input нажать enter так как на форме нет кнопок, как это возможно реализовать? пробовал нажимать программно enter но он не срабатывает т.к. активна кнопка которая была нажата на форме может как то... https://www.cyberforum.ru/ delphi-beginners/ thread947524.html Delphi Задачи Здравствуйте! Напишите (или перепишите или скопируйте) несколько задач Delphi. Именно Delphi, не Pascal. Иммею ввиду что нужно для работы с VCL https://www.cyberforum.ru/ delphi-beginners/ thread947516.html
Delphi и компонент NewAC Delphi
Здравствуйте! Не могу понять почему происходит задержка от остановки записи с микрофона до записи файла; AudioIn1.InSampleRate := 8000; AudioIn1.InBitsPerSample := 16; AudioIn1.InChannels := 1; FlacOut1.FileName:='my.flac'; FlacOut1.Run; .........
Delphi Функция pos, del Необходимо из - {"response":} он в Memo1 получить 55444617 31284630 51599532 38880609 51484905 41843982 https://www.cyberforum.ru/ delphi-beginners/ thread947376.html
Delphi Печать текста по центру страницы https://www.cyberforum.ru/ delphi-beginners/ thread947365.html
Здравствуйте. Хотел узнать - есть ли в Delphi функция, позволяющая печатать текст по центру страницы, или нужно определять центр по количеству букв и размеру шрифтов, а затем по центру определять левый верхний угол текста? Заранее спасибо.
Delphi Завершение циклических потоков в dll
Здравствуйте. В моей dll есть функция, которая создает и запускает поток, внутри которого бесконечно крутится цикл. Из хост-приложения данная функция может вызываться несколько раз, т.е. таких потоков может создаваться несколько. Подскажите, есть ли возможность корректно завершить выполнение определенного потока из хоста, т.е. не используя TerminateThread()?
Delphi Как сделать чтобы картинка была на заднем фоне под всеми компонентами? https://www.cyberforum.ru/ delphi-beginners/ thread947341.html
Здравствуйт! Есть у меня допустим пару кнопок на форме, кидаю image и он загараживает все кнопки. Как сделать чтобы картинка была на заднем фоне и ничего собой не закрывала? Добавлено через 14 минут Проблема решена, SendToBack и BringToFront !
Delphi Делфи заменяет символы Кароч мелкий чот наклацал по клаве при запуженом делфике xe4. и теперь когда я редактирую строку то символы не добавляются а заменяют следующий символ. как вернуть назад? https://www.cyberforum.ru/ delphi-beginners/ thread947336.html
Удаление кратных пробелов Delphi
Как из строковой последовательности удалить кратные пробелы. Знаю как сделать для 2 под ряд идущх пробелов а для 3 и более затруднение. Помогите пожалуйста.
Delphi Utf-8 и Cp866 https://www.cyberforum.ru/ delphi-beginners/ thread947311.html
Добрый день. Возникла проблемка с кодировкой, использую функцию function StrOemToAnsi(const S: Utf8String): AnsiString; begin if Length(S) = 0 then Result := '' else begin SetLength(Result, Length(S));
4165 / 1817 / 216
Регистрация: 06.10.2010
Сообщений: 4,074
05.09.2013, 14:29 0

Вызов функции через GetProcAddress и передача ей параметров - Delphi - Ответ 5021031

05.09.2013, 14:29. Показов 10124. Ответов 13
Метки (Все метки)

Ответ

Без асма не знаю как. Попробуй пока это, потом можно будет немного оптимизировать. Тут отсутствует проверка на количество параметров - их должно быть не менее 3.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
function Wrapper(dllName, funcName : PAnsiChar; params: array of Variant): integer;stdcall;
var
  mFunc:       pointer;
  dllInstance: THandle;
begin
  dllInstance:=LoadLibraryA(dllName);
  mFunc:=GetProcAddress(dllInstance, funcName);
  asm
  pushad
  mov  ebx,[params]
  mov  ecx,[ebp+$14]
  inc  ecx                //Длина массива (количество элементов)
  shl  ecx,4              //Длина массива в байтах
  add  ebx,ecx
  neg  ecx
  mov  esi,esp
  @2:push [ebx+ecx+8]
     add  ecx,16
  jnz @2
  mov  eax,[esi-4]        //Первые 3 параметра передаются через eax,edx,ecx
  mov  edx,[esi-8]
  mov  ecx,[esi-12]
  call [mFunc]
  add  esp,12
  mov  [result],eax
  popad
  end;
  FreeLibrary(dllInstance);
end;
Добавлено через 3 минуты
Если есть возможность перекомпилировать dll, то можно и без асма - просто объявляешь их как cdecl varargs и все параметры делаешь опциональными.

Вернуться к обсуждению:
Вызов функции через GetProcAddress и передача ей параметров Delphi
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.09.2013, 14:29
Готовые ответы и решения:

Передача параметров и вызов функции.
Привет ребята ! Помогло ... :) Но родился еще вопрос: есть у меня датамодуль, в нем...

Вызов telnet и передача параметров
Возникли некоторые трудности. Каким образом можно запустить стандартный клиент telnet.exe и...

Вызов метода, передача параметров
Вот захотел сделать метод который бы вызывал любой метод и что б туда конкретно передавались типы...

Передача параметров через список параметров формы
Hi all! У кого есть опыт передачи параметров через заголовочный список параметров формы? ...

13
05.09.2013, 14:29
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.09.2013, 14:29
Помогаю со студенческими работами здесь

Вызов одной java-программы из другой и передача ей параметров
Всем привет.Подскажите с вопросом,вот кодец: String text = request.getParameter("text"); Мне...

Передача параметров и вызов функций между page и window
Добрый день, прошу помощи, подскажите, как передать параметр, а ещё лучше вызвать функцию из window...

Вызов процедуры с передачей параметров через стек
Программы различаются между собой способом передачи параметров в процедуру и типом процедуры: ...

Вызов функции с неизвестным количеством параметров
Всем доброго дня. Не могу решить следующую проблему: Есть массив $parameters, который выглядит...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru