PureBasic

Merci pour vos codes.

Pour RAVEN, j'avais aussi essayé de rallonger le timer, mais le changement de couleur est alors trop lent.

Pour FALSAM, c'est vrai que c'est mieux, même si un petit clignotement peut arriver.

Bonjour,

voici un bout de code pour mettre dans la statusbarimage du texte trouvé sur le net :

Enumeration
#Window_0
#statubar
#font
EndEnumeration

LoadFont(#font, "Arial", 8,#PB_Font_Italic)
Global texte_barre.s = "essai"

Procedure StatusBarEx(fID,iNo,x,y,w,h,Text$,bColor,fColor ...

Le code CLIENT :

Enumeration
#fichier_log = 10
#fichier_test
#fichier_a_transferer
#fichier_temporaire
#fichier_image

#repertoire
#Window_transfert
#ListView_trans_pclocal
#Text_trans_pclocal
#Text_trans_pcdistant
#ListView_trans_pcdistant
#Text_trans_message
#ProgressBar_trans ...

Bonjour,

je vous propose un 'petit' programme qui permets de transmettre des fichiers via tcp/ip de manière cryptée.
Il faut changer l'adresse ip dans le CLIENT (ligne 35) pour que cela corresponde au pc sur lequel le SERVEUR est lancé (j'ai pas fait d'interface pour rentrer l'adresse ip).
Pour l ...

Bonjour,

j'ai 2 besoins obligatoires : utiliser une liste, et un pointeur dans cette liste.
voici mon programme qui ne marche pas :

Structure restaurant
*buffer_x
EndStructure
Global NewList info_restaurant.restaurant()

Procedure test()
AddElement( info_restaurant() )
*buffer = AllocateMemory ...

c'est justement parce que les lib de gnozla ne fonctionnent plus en 5.2x que j'essaye autrement.

Bonjour,

voici un code qui permets de colorer plusieurs combobox de differentes couleurs :
Global oldcombproc

Procedure ComboCallBack(hWnd, Message, wParam, lParam)
If (Message = #WM_CTLCOLOREDIT) Or (Message = #WM_CTLCOLORLISTBOX)
SetBkMode_(wParam,#TRANSPARENT)
If hWnd = GadgetID(9 ...

probleme résolu avec minizip.

En fait, dans son code, il y a une ligne qui limite retourne FAUX si les fichiers font plus de 2 go.
J'ai fait sauter la ligne et maintenant, plus de limite. Et les fichiers de + de 2 go sont parfaitement compressés.

purezip ne fonctionne plus sous purebasic 5.2x
Et purepacker ne fait qu'utiliser le packer de purebasic, donc, pas de progression.

j'ai cherché un peu partout sans trouver de reponse.

Il existe bien minizip, mais il ne compresse pas les fichiers de + de 2 Go (mais le callback fonctionnait)

Je me demande : n'est-il pas possible d'utiliser le zlib ?

par contre, j'ai l’impression qu'il y a un bug.
Impossible de rajouter des fichiers de 4 GO et +. et la doc ne parle pas d'une limite.

je crains que seuls les auteurs de PB puissent rajouter cette fonction.

ça peut être 3go 1 fichier, voir plusieurs fichiers de 3 go dans le même pack

ca pourrais marcher, SAUF QUE je peut pas savoir la taille compresser avant (ce qui est normal).

A la rigueur, cela pourrait marcher si je savais ou il en est dans le fichier non compressé.

Bonjour,

existe-t-il un moyen de savoir ou en est la compression d'un fichier dans la commande AddPackFile ?
Je compresse des fichiers de + de 3 Go, et il est un peu embêtant de ne pas savoir ou il en est dans la compression du fichier.
j'utilise la compression zip