PureBasic

Forums PureBasic - Français
https://www.purebasic.fr/french/

Tailbite

https://www.purebasic.fr/french/viewtopic.php?t=5044

Page 1 sur 2

Tailbite

Publié : jeu. 11/mai/2006 19:17
par LOULOU25
Maiontenant que la version finale 4.O est sortie , quelqu'un sait-il ou en est EL CHONI. merci de toute information

Publié : ven. 12/mai/2006 15:27
par El_Choni
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 :lol:

Bonjour,

Publié : ven. 12/mai/2006 15:33
par LeCyb
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 ?

Publié : ven. 12/mai/2006 15:42
par El_Choni
Les sources de TailBite son toujours disponibles avec chaque version. Les sources ASM des librairies que tu crees avec TailBite aussi.

Publié : ven. 12/mai/2006 17:27
par comtois
El_Choni a écrit :TailBite est un project clandestin maintenant :lol:
Ah ahaaha , très drôle :lol:

Publié : sam. 13/mai/2006 0:11
par LeCyb
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 :)

Publié : lun. 15/mai/2006 13:23
par El_Choni
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

Publié : lun. 15/mai/2006 14:10
par Gillou
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

Publié : lun. 15/mai/2006 14:39
par El_Choni
Fixed, update TB, thx ;)

Publié : lun. 15/mai/2006 15:03
par Gillou
Super ! merci tous mes codes marchent nickel :D

Publié : lun. 15/mai/2006 23:51
par Le Soldat Inconnu
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

Publié : mar. 23/mai/2006 13:10
par lionel_om
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... :wink:

Publié : mar. 23/mai/2006 14:00
par El_Choni
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.

Publié : mar. 23/mai/2006 17:47
par Lna
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. :wink:

Bonne continuation.

A+

Publié : mer. 24/mai/2006 14:42
par El_Choni
LOL, merci... :oops:
Fuseau horaire sur UTC+01:00
Page 1 sur 2

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru