|
????????????? ???????? ?? ?????????? ??????
|
Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
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, ? ??????? ????????? ????? ???????? ?????????? ??????????? ? ??? ???????, ?? ?????. ?? ? ????? ????? ????? ????????? ??? ???? ????????, ??? ? ????? ???????? ? ???????????? ??????????.
??? ?????? ??????, ??? ?????????, ? ???? ???? ?? ??????????
????? ???-?? ??? ??????????? ? ????????? ??????? 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 ??????? ??? ??????? ???????. _________________ ??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????... |
|
Вернуться к началу |
|
|
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. _________________ ??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????... |
|
Вернуться к началу |
|
|
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. |
_________________ ??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????... |
|
Вернуться к началу |
|
|
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[]);
... |
?? ???? ????????? ?????? ????????? ?????????? ???????, ??????? ?????? ?????????? ? ???????? ?????????. ????????? ??? ??????? ??? ?????????. ?????? ??? ????? ???????? ??? ?????????? ???, ????? ??????? ????????? ?? ??????, ? ????????? ?? ????. _________________ ??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????... |
|
Вернуться к началу |
|
|
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. |
_________________ ??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????... |
|
Вернуться к началу |
|
|
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 ? ???????. _________________ ??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????... |
|
Вернуться к началу |
|
|
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);
} |
??????!!!
??????, ???? ???? ? ?????????? ?????????? ??????? ? ?????. ??? ????? ????????? ???????, ????????? ??? ?????? ? ?????? ????? ????? ???????????? ??? ?????? ??????????. _________________ ??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????... |
|
Вернуться к началу |
|
|
NoName
Зарегистрирован: 29.04.2007 Сообщения: 15 Откуда: ???????, ?????????
|
Добавлено: Чт Июл 12, 2007 11:34 am Заголовок сообщения: |
|
|
?????, ??????? ???????. ?? ??? ????? ???????
?????? ??? ?????? ????????? ??? ?????? ?????????. ? ??? ??????, ??????? ? ???? ?????? ? ??????? ???? 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 писал(а): | ?????, ??????? ???????. ?? ??? ????? ??????? |
??????????, ??? ?????? ???? ????? ?????????
NoName писал(а): | ? ??? ??????, ??????? ? ???? ?????? ? ??????? ???? DLL-??, ?????? ??????? ?? ??????????. ???? ??? ?? ????? ?????? ???????, ? ?????? ??? ???????. ??? ???? ? |
? Delphi ???? ???????????? ???????, ?? ???? ?????? ??? ??? ?????????? ?? ???? ?????????????. ???????????? ??????? ?????? ???????? ? ???????????, ?? ?? ????, ??? ????? ???????? ???? ? DLL??. ???? ??????????????????.
NoName писал(а): | ???? ????? ??????? ??? ?????, ????????, ???????? ? DLL ?????? ???????? ???????? ???????, ??? ????? ??????? ??????? ??? ????? ???????????? ???????? ?? ???????. |
???? ???????? ???????, ???? ? ????????????? ? ????? ?????? ????????????? ??????. ???? ?? ????????? ? ????????????? ?????????, ?? ??? ? ???????. _________________ ??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????... |
|
Вернуться к началу |
|
|
KimIV Admin
Зарегистрирован: 24.01.2006 Сообщения: 958 Откуда: ??????
|
Добавлено: Чт Июл 12, 2007 11:56 am Заголовок сообщения: |
|
|
NoName писал(а): | ????? ??????????? ? ???????? ?????? ? Delphi ????? ?????????? ??? ? 0 ??? ? ? ?????? ??????? ?????. ?????? ???????? ??????? ??????? ? ???? ? ?????? ????????. |
? ???? ?????????? ???????, ????? ? ??????? ?????????? ? ???????? ??????? ? ??????? ????????. ? ????? ????? ?????????? ??????? ?? ?????? ???????, ? ??? ????. _________________ ??? ????? ? ???? ??????? ????? ? ??????? ???????? ???, ? ??????? ? ???? ?????? ? ??????? ???????? ????... |
|
Вернуться к началу |
|
|
|
|
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах Вы не можете добавлять вложения в этом форуме Вы не можете просматривать вложения в этом форуме
|
Powered by phpBB © 2001, 2005 phpBB Group
|