FórumSeções

Qualquer pergunta de um PROFI para um SUPER PROFI - 1. - página 36

Novo comentário
IgorM:

ZS: Eu não consigo encontrar um NS pronto, procurando e pesquisando no Google, o .dll com FANN funciona muito bem, mas eu gostaria dele sem o .dll

Você tem alguma idéia do que você quer? Para portar o código OOP normalmente escrito para NS subdesenvolvido? Acho que ninguém o fará. Mais ainda, seria mais rápido via .dll.

Peça no 5, eles já gaguejavam lá.

Camaradas, encontraram um indicador que se autodenomina, aqui está parte do código (o próprio indicador está no trailer):

........
IndicatorFileName=WindowExpertName(); 
........
for(i=0,int y=0; i<limit; i++)
        {
         if(Time[i]<TimeArray[y]) y++;
         sslHup[i]=iCustom(NULL,TimeFrame,IndicatorFileName,Lb,SSL_BarLevel,0,y);
         sslHdn[i]=iCustom(NULL,TimeFrame,IndicatorFileName,Lb,SSL_BarLevel,1,y);
        }

O testador não consegue chamá-lo corretamente usando iCustom() do Expert Advisor. Isto é o que recebemos:

iCustom() dele no Expert Advisor se parece com isto: 

iCustom (Symbol(), 0, "SSL_fast_sBar_Good_V12_1h", 1, 40, TF, 0, BarShift)

Ele só é exibido corretamente se o TF do testador for o mesmo que o TF nas configurações da EA.

Você pode aconselhar como fazer corretamente sua chamada para que ela seja exibida corretamente, independentemente da TF do testador?
Ou isso não pode ser feito devido às peculiaridades do código indicador?

Arquivos anexados:
ssl_fast_sbar_good_v12_1h.mq4  4 kb

Leia um artigo da Microsoft: http://technet.microsoft.com/ru-ru/library/dd630755(v=office.12).aspx

Aqui está uma citação do mesmo:

64-разрядные выпуски Windows Server могут выполнять адресацию 16 терабайт виртуальной памяти с помощью плоской модели адресации. Виртуальная память разделяется на равные части между виртуальными адресными пространствами для приложений и операционной системы. Увеличение адресного пространства виртуальной памяти в 64-разрядной среде может благоприятно сказаться даже на работе 32-разрядных приложений. Например, хотя 32-разрядное приложение по-прежнему ограничено 4 ГБ виртуальной памяти, ему больше не требуется разделять это пространство с операционной системой. В результате возникает фактическое расширение виртуальной памяти.

Acontece que o MT4 pode endereçar até 4GB de memória sob OS de 64 bits?

Não posso verificar isso comigo mesmo. Não há lugar para colocar tanta memória.

Olá

Pergunta sobre soquetes.

... Há uma tarefa do sistema SCADA rodando VB (antigo) para enviar dados para o soquete. Eu tentei implementá-la diretamente da Vb por meio do API, mas há um problema

Se a conexão com o soquete falhar VB está aguardando resposta e retarda algum tempo (isto é crítico)

Eu queria tentar criar um único fio da VB, mas descobri que a VB não entendeu o AddressOf.

Como posso explicar a VB para esperar pela resposta do soquete remoto, por exemplo, 1 segundo como TTL para ping'a (soquete remoto no local)?

Tentou outra maneira: no C++ bilder escreveu um aplicativo de console para enviar ao soquete.

Tentei executá-lo funcionando.

Depois tentei criar um processo autônomo da VB. O Runtime funciona mas não envia nenhum dado.

Eu comecei a depurar usando cout<<<<endl;

Vejo que quando eu invoco o exe manualmente, a WsaStartUp trabalha com 0 e se conecta a 0, envia o número de devoluções dos dados transferidos

Mas quando eu começo com VB, a WsaStartUp trabalha para 0 e se conecta para -1, envie respectivamente para 10038.

Eu não sei o que está errado.

Aqui está o código da VB

Public Declare Function socket Lib "WSOCK32.DLL" (ByVal af As Long, ByVal s_type As Long, ByVal protocol As Long) As Long

Public Declare Function send Lib "WSOCK32.DLL" (ByVal s As Long, buf As Any, ByVal buflen As Long, ByVal Flags As Long) As Long
Public Declare Function connect Lib "wsock32" (ByVal socket As Long, addr As sockaddr, ByVal namelen As Long) As Long


Public Declare Function closesocket Lib "WSOCK32.DLL" (ByVal s As Long) As Long
Public Declare Function inet_addr Lib "wsock32" (ByVal cp As String) As Long
Public Declare Function htons Lib "ws2_32.dll" (ByVal hostshort As Long) As Integer
Public Declare Function WSAStartup Lib "ws2_32.dll" (ByVal wVR As Long, lpWSAD As WSA_Data) As Long
Public Declare Function WSACleanUp Lib "wsock32" Alias "WSACleanup" () As Long

Type sockaddr
    sin_family As Integer
    sin_port As Integer
    sin_addr As Long
    sin_zero As String * 8
End Type

Public Const WSADESCRIPTION_LEN = 257
Public Const WSASYS_STATUS_LEN = 129
Public Const WINSOCK_VERSION = 1
Public Type WSA_Data
    wVersion       As Integer
    wHighVersion   As Integer
    szDescription  As String * WSADESCRIPTION_LEN
    szSystemStatus As String * WSASYS_STATUS_LEN
    iMaxSockets    As Integer
    iMaxUdpDg      As Integer
    lpVendorInfo   As Long
End Type

'===================================================================
Const INFINITE = &HFFFF
Const STARTF_USESHOWWINDOW = &H1


Public Const SW_NORMAL = 1

Private Type PROCESS_INFORMATION
    hProcess As Long
    hThread As Long
    dwProcessId As Long
    dwThreadId As Long
End Type

Private Type STARTUPINFO
    cb As Long
    lpReserved As String
    lpDesktop As String
    lpTitle As String
    dwX As Long
    dwY As Long
    dwXSize As Long
    dwYSize As Long
    dwXCountChars As Long
    dwYCountChars As Long
    dwFillAttribute As Long
    dwFlags As Long
    wShowWindow As Integer
    cbReserved2 As Integer
    lpReserved2 As Byte
    hStdInput As Long
    hStdOutput As Long
    hStdError As Long
End Type

Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type


Public Const NORMAL_PRIORITY_CLASS = &H20

Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As _
                            String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, _
                            lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags _
                            As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, _
                            lpProcessInformation As PROCESS_INFORMATION) As Boolean
Private Declare Function GetLastError Lib "kernel32" () As Long
Public Function SuperShell(ByVal App As String, ByVal commandline) As Integer

    Const CREATE_NO_WINDOW = &H8000000
    Dim startProc As Boolean
    Dim pclass As Long
    Dim sinfo As STARTUPINFO
    Dim pinfo As PROCESS_INFORMATION
    'Not used, but needed
    Dim sec1 As SECURITY_ATTRIBUTES
    Dim sec2 As SECURITY_ATTRIBUTES
    'Set the structure size
    sec1.nLength = Len(sec1)
    sec2.nLength = Len(sec2)
    'sinfo.cb = Len(sinfo)
    'Set the flags
    'sinfo.dwFlags = STARTF_USESHOWWINDOW
    'Set the window's startup position
    'sinfo.wShowWindow = start_size
    'Set the priority class
    'pclass = Priority_Class

    'Start the program                                                            CREATE_NO_WINDOW
    startProc = CreateProcess("e:\\project1.exe", commandline, sec1, sec2, False, 0, 0&, "e:\", sinfo, pinfo)

End Function
Public Sub testdll()
    Dim str
    str = "srwevbwert4th"    
    modSocket.SuperShell "e:\\Project1.exe", str
End Sub
Como descobrir o código de erro do sistema (GetLastError) sem a própria dll? Acho que já vi, mas não consigo encontrá-lo. Lembro-me que parece importar outra função, não me lembro qual delas. 
#import "ntdll.dll"
        int RtlGetLastWin32Error();
        int RtlSetLastWin32Error (int dwErrCode);
#import


Pronto, é isso. Obrigado (risos)

Olá

Por que este arquivo de histórico não aparece na tabela em MT?

Arquivos anexados:
6ev03-133_1.zip  1 kb

Há uma necessidade de saber o tamanho das informações do texto passado, em uma DLL. Digamos, em MKL5 isto é feito por tamanhoof().

Seria correto fazer isso em MKL4 via StringLen()? Como seria correto?

p.s. interessado em enviar terceiro parâmetro aqui:http://msdn.microsoft.com/en-us/library/aa365747(v=vs.85).aspx

Heroix:

Há uma necessidade de saber o tamanho das informações do texto passado, em uma DLL. Digamos, em MKL5 isto é feito por tamanhoof().

Seria correto fazer isso em MKL4 via StringLen()? Como seria correto?

p.s. interessado em enviar terceiro parâmetro aqui:http://msdn.microsoft.com/en-us/library/aa365747(v=vs.85).aspx

Você pode, é claro. Há exemplos de como trabalhar com esta função na MQL4 aqui.
1...293031323334353637383940414243...45
Novo comentário