cristofermartins

Olá,estou desenvolvendo uma aplicaçao para quando uma certa tecla é aperta ele gere mais 2 ou tres... O problema é que o jogo em questao parece que não aceita as keys pois eu querendo usar o postmessage(o post message usa o Hwnd da janela em questao(a do jogo) e me parece que não da pra pegar essa janela usando o findwindow... o Joy to key funciona perfeitamente,por isso a pergunta... alguém sabe como funciona o joytokey? Já tentei ate simular teclas desviando um hook de teclado(quando chegava a key que eu queria no hook eu jogava outra pro hook chain)... e não funciona ! alguém poderia me ajudar?

bom... eu estou tentando passar um array como byref e não consigo... aki o tópico no board do delphi e com o codigo do vb6... http://scriptbrasil.com.br/forum/index.php?showtopic=139750

codigo : exports DecryptPacket,EncryptPacket; codigo dentro da unit(antes do implementation..): e agora tentando chamar no vb6... Public Declare Sub DecryptPacket Lib "Functions.dll" (ByRef Packet As Byte, ByVal Length As Long) Public Declare Sub EncryptPacket Lib "Functions.dll" (ByRef Packet As Byte, ByVal Length As Long) alguém tem alguma ideia de como passar um array como byref?

o erro da no vb6,eu so fiz a pergunta aki porque vai saber se eu declarei certinho para ser chamado pelo vb6 ou qualquer outro erro não visivel para o delphi 7...

é,vou tentar isso rapidinho,no delphi o equivalente a long é int...

Quando eu tento char uma dll no vb6 da um error chamado "Bad calling dll function"...ele nem da o error que não existe entrypoint(acho que é assim que se escreve) na dll,ele acusa esse error... eu coloquei a dll no system32 e tals e aki ta o code que eu coloquei no module... Public Declare Function MaiorValor Lib "Project2.dll" (ByVal num1 As Long, ByVal num2 As Long) e aki o codigo que eu coloco pra chamar a funçao... Private Sub Command1_Click() Dim i As Long i = MaiorValor(1, 2) End Sub oque há de errado? aki embaixo o link criado no board do delphi com o code da dll: obrigado... http://scriptbrasil.com.br/forum/index.php?showtopic=139701

aki o code: library Project2; { Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select Project-View Source) USES clause if your DLL exports any procedures or functions that pass strings as parameters or function results. This applies to all strings passed to and from your DLL--even those that are nested in records and classes. ShareMem is the interface unit to the BORLNDMM.DLL shared memory manager, which must be deployed along with your DLL. To avoid using BORLNDMM.DLL, pass string information using PChar or ShortString parameters. } uses SysUtils, StrUtils, Classes; {$R *.res} function MaiorValor(num1, num2:double):double;export;stdcall; begin if (num1 > num2) then result:= num1 else result := num2; end; exports MaiorValor; begin end. a minha pergunta é: tem alguma coisa errada com o code?por que o vb6 sempre da error quando eu tento criar uma dll em delphi ou em c++... eu vou criar um tópico no board de visual basic linkado nesse para que o pessoal do vb6 ver oque ta de errado com a minha parte do visual basic e vocês verem a parte do delphi...obs:delphi 7... aki o link do tópico do vb6... http://scriptbrasil.com.br/forum/index.php?showtopic=139702 obrigado...

Gente não to conseguindo acessar as variaveis duma class que eu fiz...da acess violation! tem essa class: type TTSelf = class TselfBody:TBodyData; TselfMap:ttselfmap; TselfBattleList:TBattleListData; procedure Reload; public TselfData:ttselfdata; Teste:integer; end; var Tself:ttself; ai eu tentando colocar um valor nela; tself.Teste := 1; ai da o acess violation...como posso resolver o problema?

bem eu to afim de comprar um livro sobre c# e não sei um bom para comprar... alguém sabe um bom e atual? vlws...

procedure TForm1.Button1Click(Sender: TObject); var X, Y, a,b,D,e: Integer; begin x := 3; y := 2; If (X > Y) {Condição - SE X for maior que Y} Then Begin a := 1; b := 1; d := 2; End { Repare que não tem ponto e vírgula por que "End" está antes do "Else"} Else Begin d := 1; e := 2; End; end; depois de muito tentar consegui fazer o delphi 7 para de reclamar dos erros... so que como voces vem o x ta com valor 3 e o y ta com valor 2...e como o x ta maior que o y tem que entrar na estrutura de condiçao( a := 1)... como resolver? no visual basic 6 nunca tive problema com isso e logo o delphi fica com essa merda de estruçao que deveria da certo....

TClass1 = class procedure TesteClass; Backpack:tclass2; end; type Tclass2 = class procedure Teste; end; var Tclass:tclass1; bem... eu quero fazer uma sub class..por exemplo: tclass.backpack.teste; mas não da certo... como posso fazer isso? :ninja:

não entendi direito, mas acho q o q você quer ta na biblioteca (menu Project -> References) Microsoft Script Control. use o metodo Eval() q ele interpreta o codigo. mas qual o problema do vbscript?? você quer saber como funciona os bancos ou quer saber como usar o visual basic pra trabalhar com bancos. se for o primero caso, não conheco nd sobre isso, de uma procurada na internet. se for o segundo, veja esse aqui: http://www.macoratti.net/ado.htm e tb pode procurar otros tutoriais aqui: http://www.macoratti.net/indvb.htm acho q access é o mais facil de usar. assim oh,eu quero botar um codigo num text e ele executar isso pra mim.. o vbscript alem de não ser vb6 tem que usar class..um lixo..e não da pra usar type no vbscript control vlw

bem eu não sei nada sobre data base,e eu queria expandir meu conhecimento em vb6 e queria saber sobre database... qual o database mais facil de se usar? tutorial pra usar? dicas? outra duvida: tem como adcionar um interpletador de linguagem no vb6? tem o vbscript..mas não é muito bom.. eu gostaria de um interpletador que execute o codigo que esteja num text e interplete types ,funçoes basica(if..) e funçoes dos meus modules... abraços!

obrigado micheus , tem como me falar como usar isso no meu programa? eu gostaria de usar os codigos das units também.

eu quero ter um interpretador no meu programa,eu quero colocar um codigo em pascal num edit1 e o delphi executar o codigo e claro executando codigo das units. eu já vi em alguns programas. alguém sabe como fazer? abraços!