????????????? ???????? ?? ?????????? ?????? ????????????? ???????? ?? ?????????? ??????

 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

MQL + DLL ?? Delphi
На страницу 1, 2  След.
 
Начать новую тему   Ответить на тему    Список форумов ????????????? ???????? ?? ?????????? ?????? -> ???????????????? ? MQL4
Предыдущая тема :: Следующая тема  
Автор Сообщение
NoName



Зарегистрирован: 29.04.2007
Сообщения: 15
Откуда: ???????, ?????????

СообщениеДобавлено: Вт Июл 10, 2007 11:56 pm    Заголовок сообщения: MQL + DLL ?? Delphi Ответить с цитатой

??? ????????? ???? ??????? ????????? DLL ?????????? ?? Delphi ? MQL. ? ??????? ????? ??????? ? ??????????, ??????? ??????? ????, ??????? ??????? ?????, ?? ????? ? ?? ????????, ???????? ????????.
??????????, ??? ????? ???-?? ????????????? ???????????? ????? DLL ? ???????.

??? ??????? ?? ???????? ?????????? ??????????:
Код:

#import "dll_showIn.dll"
double ShowIn(double handle);
//------------------------

int start()
  {
//----
  ShowIn(5);
//----
   return(0);
  }


??? ??? DLL
Код:

library dll_showIn;

uses
  SysUtils,
  Classes,
  dll_with_form in 'dll_with_form.pas' {Form1};

{$R *.res}
exports ShowIn;

begin
end.


Код:
unit dll_with_form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1:  TForm1;
  Panel1: TPanel;
  procedure ShowIn(Handle:THandle); export;stdcall;
implementation

{$R *.dfm}

  procedure ShowIn(Handle:THandle);
  begin

  Application.Handle := Handle;
  Form1:= TForm1.Create(Application);
  Form1.ShowModal;
  Form1.Free;
  end;

end.


??? ????? ? ???????? Delphi7:

_________________
? ??., ??????.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
NoName



Зарегистрирован: 29.04.2007
Сообщения: 15
Откуда: ???????, ?????????

СообщениеДобавлено: Ср Июл 11, 2007 12:30 am    Заголовок сообщения: Ответить с цитатой

???, ??????? ??????? ????????? ?????????? ??? ????????????? ??????.
??????? ????? ??? ???? ??? ??? ????????????.
??? ??????? ????????? ??? ?????????? ?????? ??? ???????????? ? ???????. ???????? ?? ?????? ?????????? ???????? ? ??????? ??????? Comment () ?????? ?? ??????, ? ?? ?????? ????????. ????? ? ?????? ???? ????????. ??????? ????? ??????? DLL, ? ??????? ????????? ????? ???????? ?????????? ??????????? ? ??? ???????, ?? ?????. ?? ? ????? ????? ????? ????????? ??? ???? ????????, ??? ? ????? ???????? ? ???????????? ??????????.
??? ?????? ??????, ??? ?????????, ? ???? ???? ?? ?????????? Sad

????? ???-?? ??? ??????????? ? ????????? ??????? DLL ? ????? ??????.

_________________
? ??., ??????.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
NoName



Зарегистрирован: 29.04.2007
Сообщения: 15
Откуда: ???????, ?????????

СообщениеДобавлено: Ср Июл 11, 2007 2:04 am    Заголовок сообщения: Ответить с цитатой

? ???????? ????????? ????? ?? ??????????. ???? ???? ? ????????? handle. ????? ???? Dll ?? ?????????? Delphi ???????? ?????????. ?? ???? ?????? ???? ?????? ???? ???????????? ???????? handle. ?????? ????? ????????? ? ????????? ? Dll-?? ??????? ?????????? ?? ???????.

?????? ????? ????????? ??????. ???????? ??? ????????? ????? ??????? ??? ??? ???????? ???????.

_________________
? ??., ??????.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
KimIV
Admin


Зарегистрирован: 24.01.2006
Сообщения: 958
Откуда: ??????

СообщениеДобавлено: Ср Июл 11, 2007 2:06 pm    Заголовок сообщения: Ответить с цитатой

NoName писал(а):
?? ???? ?????? ???? ?????? ???? ???????????? ???????? handle.

?????? int (MQL4), integer (Delphi).

? ?????? ??? ? ???????? ? Delphi 6. ??4 ??????? ??? ??????? ???????.

_________________
??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора Yahoo Messenger
KimIV
Admin


Зарегистрирован: 24.01.2006
Сообщения: 958
Откуда: ??????

СообщениеДобавлено: Ср Июл 11, 2007 2:19 pm    Заголовок сообщения: Ответить с цитатой

??????? ??????, ????? ?????????? ??? ?????? ???????????? ?? ??????, ? ?? ?? ????????. ????? ? ???, ??? ??????? ShowIn ?????? ??????? ????? ????????? ?????.
Код:
#import "dll_showIn.dll"
  void ShowIn(int& handle);

void start() {
  int h;
  ShowIn(h);
}

?????? ??? ????????? ????????. ????? ????????? ? ???????????, ?? ???????? ??4.

_________________
??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора Yahoo Messenger
KimIV
Admin


Зарегистрирован: 24.01.2006
Сообщения: 958
Откуда: ??????

СообщениеДобавлено: Ср Июл 11, 2007 3:20 pm    Заголовок сообщения: Ответить с цитатой

??????? ??????? ? ?????? ????? ????????. ???? ????? ???? ????? ?? ????????????.

??????:
Код:
#import "dll_showIn.dll"
  void ShowIn();

void start() {
  ShowIn();
}


?????:
Код:
library dll_showIn;

uses
  SysUtils,
  Classes,
  dll_with_form in 'dll_with_form.pas' {Form1};

{$R *.res}

exports ShowIn;

begin
end.


?????:
Код:
unit dll_with_form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  procedure ShowIn(); export; stdcall;

implementation

{$R *.dfm}

procedure ShowIn();
begin
  Form1:=TForm1.CreateNew(Application);
  Form1.ShowModal;
  Form1.Free;
end;

end.

_________________
??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора Yahoo Messenger
NoName



Зарегистрирован: 29.04.2007
Сообщения: 15
Откуда: ???????, ?????????

СообщениеДобавлено: Ср Июл 11, 2007 5:37 pm    Заголовок сообщения: Ответить с цитатой

??? ? ? ????? ????? ? ?????? ?? ??????? ??????.
_________________
? ??., ??????.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
NoName



Зарегистрирован: 29.04.2007
Сообщения: 15
Откуда: ???????, ?????????

СообщениеДобавлено: Чт Июл 12, 2007 1:11 am    Заголовок сообщения: Ответить с цитатой

?? ???, ??? ? ? ???????????, ?????? ? ????????? ??????? ?????????. ??????? ??? Dll ? ??????????? ???????.
(?????????? ??? ?????. ??? ???-?? ??????? ??? ?????????)
Код:

unit dll_with_form2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1:  TForm1;
  Panel1: TPanel;
  procedure ShowIn(A: array of Double); export;stdcall;

implementation

{$R *.dfm}


procedure ShowIn(A: array of Double);
begin

//Application.Handle := Handle;
Form1:= TForm1.Create(Application);
Form1.Panel1.Caption:=FloatToStr(A[2]);
Form1.ShowModal;
Form1.Free;
end;

end.


??????:
Код:

#import "dll_showIn.dll"
 void ShowIn(double Arr[]);
//------------------------
double Arr[5];

int start()
  {
//------------????????? ??????--
double i=0.5;
//-------
for (int cnt=0; cnt<5; cnt++) {
Arr[cnt]=i;
i=i+i;
}
Print(Arr[2]);
//-------------------------------
ShowIn(Arr);
//----------
   return(0);
  }


?? ?????????? ??????????? ?? Delphi dll-?? ?????????? ?????????. ? ???????? ??????. ???????? ?????????? ?????? ???????? (?? ??????) - ???????? ?????????.
?????????? ??????????, ? ??? ???????

_________________
? ??., ??????.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
KimIV
Admin


Зарегистрирован: 24.01.2006
Сообщения: 958
Откуда: ??????

СообщениеДобавлено: Чт Июл 12, 2007 6:23 am    Заголовок сообщения: Ответить с цитатой

? MQL ?????? ????? ?????????? ?????? ?? ??????. ?? ???? ?? ???? ? ???????? ????????? ?????????? ?? ??? ??????, ? ????????? ?? ????. ? ??????? ??? ?????? ????????? ???:
Код:
#import "dll_showIn.dll"
  void ShowIn(double& Arr[]);
...

?? ???? ????????? ?????? ????????? ?????????? ???????, ??????? ?????? ?????????? ? ???????? ?????????. ????????? ??? ??????? ??? ?????????. ?????? ??? ????? ???????? ??? ?????????? ???, ????? ??????? ????????? ?? ??????, ? ????????? ?? ????.

_________________
??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора Yahoo Messenger
KimIV
Admin


Зарегистрирован: 24.01.2006
Сообщения: 958
Откуда: ??????

СообщениеДобавлено: Чт Июл 12, 2007 7:59 am    Заголовок сообщения: Ответить с цитатой

???????? ??????? ? Delphi ?? ??????? ?? ?????? ? ???????? ????????? ?????? ???? ???????? ?????:
Код:
type
  TArr = array [1..5] of Double;
  TPoint = ^TArr;

var
  procedure ShowIn(A: TPoint); export; stdcall;

?????? ? ??? ?????? ???????????? ???????, ??? ?????????????? ?????????????? ??????.

???? ??? ????? ? DLL:
Код:
unit dll_with_form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TArr = array [1..5] of Double;
  TPoint = ^TArr;

var
  Form1:  TForm1;
  Panel1: TPanel;
  procedure ShowIn(A: TPoint); export; stdcall;

implementation

{$R *.dfm}

procedure ShowIn(A: TPoint);
var arr: TArr;
begin
  arr:=A^;
  Form1:=TForm1.Create(Application);
  Form1.Panel1.Caption:=FloatToStr(arr[2]);
  Form1.ShowModal;
  Form1.Free;
end;

end.

_________________
??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора Yahoo Messenger
KimIV
Admin


Зарегистрирован: 24.01.2006
Сообщения: 958
Откуда: ??????

СообщениеДобавлено: Чт Июл 12, 2007 8:04 am    Заголовок сообщения: Ответить с цитатой

??????????? - ?? ?????, ? ???????? ???? ????????!
?????????? ? DLL ????????? ??????, ? ?? ?????? ?? ????. ????????!

??? ???:
Код:
unit dll_with_form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TArr = array [1..5] of Double;

var
  Form1:  TForm1;
  Panel1: TPanel;
  procedure ShowIn(A: TArr); export; stdcall;

implementation

{$R *.dfm}

procedure ShowIn(A: TArr);
begin
  Form1:=TForm1.Create(Application);
  Form1.Panel1.Caption:=FloatToStr(A[2]);
  Form1.ShowModal;
  Form1.Free;
end;

end.

?? ? ???? ??? ?????????, ??? ? MQL ??????? ???????? ?????????? ? ????, ? ? Delphi ? ???????.

_________________
??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора Yahoo Messenger
KimIV
Admin


Зарегистрирован: 24.01.2006
Сообщения: 958
Откуда: ??????

СообщениеДобавлено: Чт Июл 12, 2007 8:11 am    Заголовок сообщения: Ответить с цитатой

??????, ? ? ??????? ???????? ???????? ??????? ?? ?? ??????:
Код:
#import "dll_showIn.dll"
  void ShowIn(double Arr[]);

double Arr[5];

void start() {
  double i=0.5;
  for (int cnt=0; cnt<5; cnt++) {
    Arr[cnt]=i;
    i=i+i;
  }
  Print(Arr[2]);
  ShowIn(Arr);
}

??????!!! Very Happy

??????, ???? ???? ? ?????????? ?????????? ??????? ? ?????. ??? ????? ????????? ???????, ????????? ??? ?????? ? ?????? ????? ????? ???????????? ??? ?????? ??????????.

_________________
??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора Yahoo Messenger
NoName



Зарегистрирован: 29.04.2007
Сообщения: 15
Откуда: ???????, ?????????

СообщениеДобавлено: Чт Июл 12, 2007 11:34 am    Заголовок сообщения: Ответить с цитатой

?????, ??????? ???????. ?? ??? ????? ???????Smile
?????? ??? ?????? ????????? ??? ?????? ?????????. ? ??? ??????, ??????? ? ???? ?????? ? ??????? ???? DLL-??, ?????? ??????? ?? ??????????. ???? ??? ?? ????? ?????? ???????, ? ?????? ??? ???????. ??? ???? ?

???? ????? ??????? ??? ?????, ????????, ???????? ? DLL ?????? ???????? ???????? ???????, ??? ????? ??????? ??????? ??? ????? ???????????? ???????? ?? ???????.

Цитата:
?? ? ???? ??? ?????????, ??? ? MQL ??????? ???????? ?????????? ? ????, ? ? Delphi ? ???????.


????? ??????????? ? ???????? ?????? ? Delphi ????? ?????????? ??? ? 0 ??? ? ? ?????? ??????? ?????. ?????? ???????? ??????? ??????? ? ???? ? ?????? ????????.
????????? ???? ???? ????????. ? ???????, ?????????????, ???-?? ??????? ???? ?????? ???????.

_________________
? ??., ??????.


Последний раз редактировалось: NoName (Чт Июл 12, 2007 11:53 am), всего редактировалось 2 раз(а)
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
KimIV
Admin


Зарегистрирован: 24.01.2006
Сообщения: 958
Откуда: ??????

СообщениеДобавлено: Чт Июл 12, 2007 11:48 am    Заголовок сообщения: Ответить с цитатой

NoName писал(а):
?????, ??????? ???????. ?? ??? ????? ???????

??????????, ??? ?????? ???? ????? ????????? Smile

NoName писал(а):
? ??? ??????, ??????? ? ???? ?????? ? ??????? ???? DLL-??, ?????? ??????? ?? ??????????. ???? ??? ?? ????? ?????? ???????, ? ?????? ??? ???????. ??? ???? ?

? Delphi ???? ???????????? ???????, ?? ???? ?????? ??? ??? ?????????? ?? ???? ?????????????. ???????????? ??????? ?????? ???????? ? ???????????, ?? ?? ????, ??? ????? ???????? ???? ? DLL??. ???? ??????????????????.

NoName писал(а):
???? ????? ??????? ??? ?????, ????????, ???????? ? DLL ?????? ???????? ???????? ???????, ??? ????? ??????? ??????? ??? ????? ???????????? ???????? ?? ???????.

???? ???????? ???????, ???? ? ????????????? ? ????? ?????? ????????????? ??????. ???? ?? ????????? ? ????????????? ?????????, ?? ??? ? ???????.

_________________
??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора Yahoo Messenger
KimIV
Admin


Зарегистрирован: 24.01.2006
Сообщения: 958
Откуда: ??????

СообщениеДобавлено: Чт Июл 12, 2007 11:56 am    Заголовок сообщения: Ответить с цитатой

NoName писал(а):
????? ??????????? ? ???????? ?????? ? Delphi ????? ?????????? ??? ? 0 ??? ? ? ?????? ??????? ?????. ?????? ???????? ??????? ??????? ? ???? ? ?????? ????????.

? ???? ?????????? ???????, ????? ? ??????? ?????????? ? ???????? ??????? ? ??????? ????????. ? ????? ????? ?????????? ??????? ?? ?????? ???????, ? ??? ????.

_________________
??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора Yahoo Messenger
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов ????????????? ???????? ?? ?????????? ?????? -> ???????????????? ? MQL4 Часовой пояс: GMT + 5
На страницу 1, 2  След.
Страница 1 из 2

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете добавлять вложения в этом форуме
Вы не можете просматривать вложения в этом форуме
Рейтинг@Mail.ru


Powered by phpBB © 2001, 2005 phpBB Group