Tailbite

LOULOU25 · Message par **LOULOU25** » jeu. 11/mai/2006 19:17

Maiontenant que la version finale 4.O est sortie , quelqu'un sait-il ou en est EL CHONI. merci de toute information

El_Choni · Message par **El_Choni** » ven. 12/mai/2006 15:27

Bonjour,

Je suis chez moi

Hereusement, j'ai tout le weekend pour TailBite, parce que ma fiancée est en voyage. J'espere finaliser avant qu'elle rentre, sinon, on doira attender. TailBite est un project clandestin maintenant

Bonjour,

LeCyb · Message par **LeCyb** » ven. 12/mai/2006 15:33

Un grand merci à toi El_Choni

Je sais que j'abuse, mais tu crois que c'est possible d'avoir les sources afin de mieux comprendre le fonctionnement des librairies et autres amusements ?

El_Choni · Message par **El_Choni** » ven. 12/mai/2006 15:42

Les sources de TailBite son toujours disponibles avec chaque version. Les sources ASM des librairies que tu crees avec TailBite aussi.

comtois · Message par **comtois** » ven. 12/mai/2006 17:27

El_Choni a écrit :TailBite est un project clandestin maintenant

Ah ahaaha , très drôle

LeCyb · Message par **LeCyb** » sam. 13/mai/2006 0:11

El_Choni a écrit :Les sources de TailBite son toujours disponibles avec chaque version. Les sources ASM des librairies que tu crees avec TailBite aussi.

Cool

El_Choni · Message par **El_Choni** » lun. 15/mai/2006 13:23

C'est pas parfait, mais mieux que la derniére:

http://www.sopapop.com

Est-ce que vous pourriez essayer un peu pour voire les noveaux bugs?

Merci d'avant

Gillou · Message par **Gillou** » lun. 15/mai/2006 14:10

Salut

Et merci pour ton super taf tout marche nickel sauf cette fonction. Ai je fais une erreur?

L'erreur affichée :

flat assembler version 1.58
F:\...\TailBite\TBTemp\Functions\OLD_CreateShorcut.asm [8]:
Extrn eax+80
error reserved word used as symbol.

Canal de communication fermé.

ProcedureDLL OLD_CreateShortcut(Target$, Shortcut$, Arguments$ = "" , Comments$ = "" , WorkDirectory$ = "" , WindowSize.l = 1, IconShortcut$ = "" , IconNumber.l = 0) ; Crée un raccourci
     CoInitialize_ (0)
     If WindowSize = 1
        TFen.l = #SW_SHOWNORMAL
     ElseIf WindowSize = 2
        TFen.l = #SW_SHOWMAXIMIZED
     ElseIf WindowSize = 3
        TFen.l = #SW_SHOWMINIMIZED
     EndIf

     If CoCreateInstance_ (?CLSID_ShellLink, 0, 1, ?IID_IShellLink, @psl.IShellLinkA) = 0

        Set_ShellLink_preferences :
        psl\SetPath( @Target$)
        psl\SetArguments( @Arguments$)
        psl\SetWorkingDirectory( @WorkDirectory$)
        psl\SetDescription( @Comments$)
        psl\SetShowCmd(TFen)
        psl\SetHotkey(0) ; Touche raccourci
        psl\SetIconLocation( @IconShortcut$, IconNumber.l)

        ShellLink_SAVE :
         If psl\QueryInterface(?IID_IPersistFile, @ppf.IPersistFile) = 0
            mem.s = Space (1000)
             MultiByteToWideChar_ ( #CP_ACP , 0, Shortcut$, -1, mem, 1000)
            hres = ppf\Save( @mem, #True )
            result = 1
            ppf\Release()
         EndIf
        psl\Release()
     EndIf
     CoUninitialize_ ()
     ProcedureReturn result

     DataSection
        CLSID_ShellLink :
             Data.l $00021401
             Data.w $0000, $0000
             Data.b $C0, $00, $00, $00, $00, $00, $00, $46
        IID_IShellLink :
             Data.l $000214EE
             Data.w $0000, $0000
             Data.b $C0, $00, $00, $00, $00, $00, $00, $46
        IID_IPersistFile :
             Data.l $0000010B
             Data.w $0000, $0000
             Data.b $C0, $00, $00, $00, $00, $00, $00, $46
     EndDataSection

EndProcedure

El_Choni · Message par **El_Choni** » lun. 15/mai/2006 14:39

Fixed, update TB, thx

Gillou · Message par **Gillou** » lun. 15/mai/2006 15:03

Super ! merci tous mes codes marchent nickel

Le Soldat Inconnu · Message par **Le Soldat Inconnu** » lun. 15/mai/2006 23:51

J'ai également pu compiler toutes mes librairies sous PB v4 sans problème sauf cette librairie :

Code : Tout sélectionner

ProcedureDLL.l HexVal(Hex.s) ; Convertir une chaine hexadécimal en valeur numérique
  Protected Val.l
  MOV Ecx, Hex
  LEA Ebx, [TableValeurHex]
  MOV Edx, 0
  MOV Eax, 0
  
  ! EncoreChaineHex :
  MOV al, byte[Ecx]
  CMP al, 0
  JE FinChaineHex
  XLATB
  CMP Eax, $FF
  JE ErreurChaineHex
  ROL Edx, 4
  ADD Edx, Eax
  INC Ecx
  JMP EncoreChaineHex
  
  ! FinChaineHex :
  MOV Val, Edx
  ProcedureReturn Val
  
  ! ErreurChaineHex :
  ProcedureReturn - 1
  
  ! TableValeurHex :
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $00, $01, $02, $03, $04, $05, $06, $07, $08, $09, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $0A, $0B, $0C, $0D, $0E, $0F, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $0A, $0B, $0C, $0D, $0E, $0F, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
EndProcedure

ProcedureDLL.l BinVal(Bin.s) ; Convertir une chaine binaire en valeur numérique
  Protected Val.l
  MOV Ecx, Bin
  LEA Ebx, [TableValeurBin]
  MOV Edx, 0
  MOV Eax, 0
  
  ! EncoreChaineBin :
  MOV al, byte[Ecx]
  CMP al, 0
  JE FinChaineBin
  XLATB
  CMP Eax, $FF
  JE ErreurChaineBin
  ROL Edx, 1
  ADD Edx, Eax
  INC Ecx
  JMP EncoreChaineBin
  
  ! FinChaineBin :
  MOV Val, Edx
  ProcedureReturn Val
  
  ! ErreurChaineBin :
  ProcedureReturn - 1
  
  ! TableValeurBin :
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $00, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $00, $01, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
  ! DB $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF, $FF
EndProcedure

mais c'est génial d'avoir a nouveau ces librairies pour PB v4, merci El Choni

lionel_om · Message par **lionel_om** » mar. 23/mai/2006 13:10

Ya un bug dans TailBite :
quand on fait "pick it !", (pour sélectionner un fichier) il ne sélectionne que le no du fichier, pas le chemin, donc quand on veut le "compiler" ca plante : "Erreur ..."

Par contre jcomment on fait pour faire des procédures à arguments facultatifs maintenant ? On fait toujours avec Fct(a.b) Fct2(a.b, c.l) Fct3(a.b, c.l, d.f) ??? ou en une seule procédure ?

Car le fichier d'aide n'a pas bougé...

Merci d'avance pour la réponse...

El_Choni · Message par **El_Choni** » mar. 23/mai/2006 14:00

Merci pour votre aide.

La syntax est en train de changer pour que ça soit le même qu'en PB v4:

ProcedureDLL Function(a.l, b=0) ;...

Mais ça ne marche pas maintenant, j'espere le terminer cette semaine.

Lna · Message par **Lna** » mar. 23/mai/2006 17:47

Merci El_Choni, pour ce merveilleux programme devenu désormais indispensable.

Nosotros esperamos por usted como el mesías
Nosotros creemos más en usted que en dios.

Bonne continuation.

A+

El_Choni · Message par **El_Choni** » mer. 24/mai/2006 14:42

LOL, merci...