Jump to content
Fivewin Brasil

alexmb

Membros
 View Profile  See their activity

  • Posts

    16

  • Joined

  • Last visited

 Content Type 

Posts posted by alexmb

  3. Cannot Load WinINet.dll

    in Programação

    Posted

    Ja testei de 4 maquinas e nada em nenhuma delas.

    Tb voltei o endereco antigo de ftp e tentei outros e nada tambem.

    Estou usando algo mais ou menos assim

    function Main()local oInternet := TInternet():New()local oFTP := TFTP():New( "ftp.host.com.br",oInternet,"UserName","PassWord" ) // Microsoft FTP local aFiles

    if ! Empty( oFTP:hFTP )

    msginfo("conectou")

    else

    MsgAlert( "oFTP:hFTP is null" )

    endif

    oInternet:End()

    MsgInfo( "Done!" )

    return nil

    _____

    Alexandre Broetto

  4. Cannot Load WinINet.dll

    in Programação

    Posted

    citação:

    copie a dll para C:\Windows\System32

    id=quote>id=quote>

    Ja existe essa DDL no System 32 e mesmo assim nao roda

    citação:

    no prompt do DOS:

    regsvr32 MINHAdll.dll

    id=quote>id=quote>

    Tentei esse comando e foi dado o seguitne alerta: "WinINet.ddl foi carregado, mas o ponto de entrada DllRegisterServer nao foi localizado. Este arquivo nao pode ser registrado."

    A ultima vez que mexi nesse meu programa, foi no ano passado e funcionava. So que voltei a mexer nele agora nao funciona...e a unica modificacao no programa, foi o endereco de FTP (de ftp.dominio.net foi para ftp.dominio.com.br) que he valido pois testei pelo Windows Explorer.

    _____

    Alexandre Broetto

    Editado por - alexmb on 20/08/2008 10:36:01

  6. Cannot Load WinINet.dll

    in Programação

    Posted

    Bom dia!!

    Estou tentando rodar uma aplicacao no meu siste que faz uma conexao FTP. So que quando tenta ser feita a conexao, me eh apresentado na tela uma mensagem dizendo que a DLL nao pode ser carregada.

    Algum tem ideia do que pode ser??

    Att, AlexMB

    _____

    Alexandre Broetto

  7. Cannot Load WinINet.dll

    in Programação

    Posted

    Bom dia!!

    Estou tentando rodar uma aplicacao no meu siste que faz uma conexao FTP. So que quando tenta ser feita a conexao, me eh apresentado na tela uma mensagem dizendo que a DLL nao pode ser carregada.

    Algum tem ideia do que pode ser??

    Att, AlexMB

    _____

    Alexandre Broetto

  10. LIBMYSQL.dll

    in FiveWin - Conversão de 16 bits para 32 bits

    Posted

    Alguem conhece esse alerta???

    "Não foi possível localizar o ponto de entrada do procedimento mysql_get_server_version na biblioteca de vínculo dinâmico LIBMYSQL.dll"

    ======================================

    Well...resolvi já....

    Podem deletar esse tópico...=)

    _____

    Alexandre Broetto

    Editado por - alexmb on 16/05/2008 09:42:48

  15. WebCam ???

    in Programação

    Posted

    Olá a todos. Eu me chamo Alexandre e estou tendo os seguintes problemas para rodar o programa WEBCAM32.PRG (o qual fiz downlod no tópico http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=8823).

    Explicando: Quando tento rodar o programa (após compilar junto ao meu sistema) me é apresentada na tela erro na função ABS().

    Fiz algumas alterações no programa para facilitar a visualização e entendimento. Segue parte do código abaixo:

    citação:

    IF ( !wCamGetDrvDesc(nDriver, @cName, nLen, @cVersion, nLen) )

    EXIT

    ENDIF

    function wCamGetDrvDesc(nDriver ,cName,nName,cVersion,nVersion )

    local hDLL := LoadLibrary("avicap32.dll" )

    local uResult

    local cFarProc

    if Abs(hDLL ) > 32

    cFarProc = GetProcAddress(hDLL,If(Empty("capGetDriverDescriptionA" ) == .t.,"wCamGetDrvDesc","capGetDriverDescriptionA" ),.T.,5,7 ,8,7,8,7 )

    uResult = CallDLL(cFarProc,nDriver ,cName,nName,cVersion,nVersion )

    IIF(ValType("avicap32.dll" ) == "N",,FreeLibrary(hDLL ) )

    else

    MsgAlert( "Error code: " + LTrim(Str(hDLL ) ) + " loading " + If(ValType("avicap32.dll" ) == "C","avicap32.dll",Str("avicap32.dll" ) ) )

    end

    return uResult

    id=quote>id=quote>

    Eu já tentei inibir esse IF e com isso gera um "Conditional Error" na chamada da função. Já não sei mais o que fazer. Será que algém poderia me ajudar??

    Atenciosamente, Alexandre Broetto.

    Editado por - alexmb on 18/02/2008 17:05:06

  16. WebCam ???

    in Programação

    Posted

    Olá a todos. Eu me chamo Alexandre e estou tendo os seguintes problemas para rodar o programa WEBCAM32.PRG (o qual fiz downlod no tópico http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=8823).

    Explicando: Quando tento rodar o programa (após compilar junto ao meu sistema) me é apresentada na tela erro na função ABS().

    Fiz algumas alterações no programa para facilitar a visualização e entendimento. Segue parte do código abaixo:

    citação:

    IF ( !wCamGetDrvDesc(nDriver, @cName, nLen, @cVersion, nLen) )

    EXIT

    ENDIF

    function wCamGetDrvDesc(nDriver ,cName,nName,cVersion,nVersion )

    local hDLL := LoadLibrary("avicap32.dll" )

    local uResult

    local cFarProc

    if Abs(hDLL ) > 32

    cFarProc = GetProcAddress(hDLL,If(Empty("capGetDriverDescriptionA" ) == .t.,"wCamGetDrvDesc","capGetDriverDescriptionA" ),.T.,5,7 ,8,7,8,7 )

    uResult = CallDLL(cFarProc,nDriver ,cName,nName,cVersion,nVersion )

    IIF(ValType("avicap32.dll" ) == "N",,FreeLibrary(hDLL ) )

    else

    MsgAlert( "Error code: " + LTrim(Str(hDLL ) ) + " loading " + If(ValType("avicap32.dll" ) == "C","avicap32.dll",Str("avicap32.dll" ) ) )

    end

    return uResult

    id=quote>id=quote>

    Eu já tentei inibir esse IF e com isso gera um "Conditional Error" na chamada da função. Já não sei mais o que fazer. Será que algém poderia me ajudar??

    Atenciosamente, Alexandre Broetto.

    Editado por - alexmb on 18/02/2008 17:05:06

×
×
  • Create New...