Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 10.02.2011, 14:25
carliker carliker вне форума
Прохожий
 
Регистрация: 10.02.2011
Сообщения: 4
Репутация: 10
По умолчанию Передача переменной из exe в dll

У меня есть приложение ЕХЕ которое в определенный момент подгружает библиотеку. Мне надо передать значение из Edit EXE в переменную DLL. Как это сделать?
P.S.: Если можно с примером.
Ответить с цитированием
  #2  
Старый 10.02.2011, 14:36
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

вызвать функцию dll с нужным по типу параметром из exe
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #3  
Старый 10.02.2011, 14:40
carliker carliker вне форума
Прохожий
 
Регистрация: 10.02.2011
Сообщения: 4
Репутация: 10
По умолчанию

В библиотеке есть функция, она постоянно вызывается. Мне надо получить примерно такое: (см. DrawTextA то что курсивом)
Код:
unction EndScene9Callback(self: pointer): HResult; stdcall;
var
  TextRect: TRect;
  color:TD3DColor;
 begin

  TextRect := Rect(300,300,300,300);
  g_Font.DrawTextA(nil,PChar(From1.Edit1.Text),-1, @TextRect,DT_LEFT or DT_NOCLIP,D3DCOLOR_RGBA($ff, $00, $00, $ff));

  Result:=EndScene9Next(self);
end;
Ответить с цитированием
  #4  
Старый 10.02.2011, 14:45
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
function EndScene9Callback(self: pointer; text: PChar): HResult; stdcall;
var
  TextRect: TRect;
  color:TD3DColor;
 begin

  TextRect := Rect(300,300,300,300);
  g_Font.DrawTextA(nil,text,-1, @TextRect,DT_LEFT or DT_NOCLIP,D3DCOLOR_RGBA($ff, $00, $00, $ff));

  Result:=EndScene9Next(self);
end;
Админ: Про теги не забываем...
__________________
Пишу программы за еду.
__________________

Последний раз редактировалось Admin, 10.02.2011 в 15:03.
Ответить с цитированием
  #5  
Старый 10.02.2011, 15:27
carliker carliker вне форума
Прохожий
 
Регистрация: 10.02.2011
Сообщения: 4
Репутация: 10
По умолчанию

И как дальше быть, что писать в exe ?

P.S.: В библиотеке в uses надо написать Unit1??? (Unit1 - исходник ехе)

Вот мои исходники, что надо исправить? Помогите плиз, уже незнаю к кому обращаться.
Вложения
Тип файла: rar dx1.rar (86.5 Кбайт, 6 просмотров)

Последний раз редактировалось carliker, 10.02.2011 в 15:52.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 09:01.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter