PureBasic

Merci pour le partage

A part un petit probleme quand à l'histoire de la protection du fichier deja existant (Il me disait que le fichier est existant alors que je l'ai enlevé

)

J'ai commenté la verification et ça marche du tonnerre

Kwai chang caine a écrit : A part un petit probleme quand à l'histoire de la protection du fichier deja existant (Il me disait que le fichier est existant alors que je l'ai enlevé )

Merci

je viens de réediter le code coloré , maintenant ça devrai marcher !!

Merci DOBRO
Mais cette fois, j'ai une erreur ligne 98 "Invalid memory access"
Avec une png de 217 ko, il m'a fait 2 fichiers.

Kwai chang caine a écrit :Merci DOBRO
Mais cette fois, j'ai une erreur ligne 98 "Invalid memory access"
Avec une png de 217 ko, il m'a fait 2 fichiers.

arg !!

je regarde ça !

Je reviens juste du taf et je découvre ce topic (et ton mp dobro), j'ai pas le temps de m'y mettre tout de suite (je dois faire à bouffer j'ai de la visite ce soir... enfin vous vous en foutez sûrement mais ça me permet de rester qques minutes de plus derrière mon clavier

)

En tout cas y'a aucun soucis à partager des libs que tu a créés ! manquerait plus que ça que je râle.

Par contre j'ajouterai surement la gestion en Mo si Filesize >1024*1024*2
(*2 car si le fichier ne fait qu'un mo c'est con de demander des part en mo)
Car en général on découpe des gros fichiers pas des petits.
Voilou.

En tout cas je testerai ça des que je le pourrai (ce soir tard je pense) et te remercie encore de t'être penché sur mon soucis de fileseek.

bon je viens de reediter le code coloré !!

dites moi que ça marche maintenant

Tiens Dobro, ton code m'a donné envie d'écrire une variante :

Code : Tout sélectionner

Procedure Cut(FichierACouper.s, TailleBloc.l)
  Protected Status.l, *Bloc, FichierACouperNb.l, LongueurFichier.l, Element.l, FilePartNb.l, LongueurLue.l
  If TailleBloc
    Status = #True
    *Bloc = AllocateMemory(TailleBloc)
    If *Bloc
      FichierACouperNb = ReadFile(#PB_Any, FichierACouper)
      If FichierACouperNb
        LongueurFichier = Lof(FichierACouperNb)
        If LongueurFichier
          Repeat
            LongueurLue = ReadData(FichierACouperNb, *Bloc, TailleBloc)
            If LongueurLue
              FilePartNb = CreateFile(#PB_Any, FichierACouper + "." + RSet(Str(Element), 6, "0"))
              If FilePartNb
                WriteData(FilePartNb, *Bloc, LongueurLue)
                CloseFile(FilePartNb)
                Element + 1
              Else
                MessageRequester("ERREUR", "Y a un blème avec le découpage !", #MB_ICONERROR)
                Status = #False
                Break
              EndIf
            EndIf
            If LongueurLue < TailleBloc
              Break
            EndIf
          ForEver
        EndIf
        CloseFile(FichierACouperNb)
      Else
        MessageRequester("ERREUR", "Y a un blème avec le fichier " + FichierACouper + " !", #MB_ICONERROR)
        Status = #False
      EndIf
      FreeMemory(*Bloc)
    Else
      MessageRequester("ERREUR", "Y a un blème de mémoire !", #MB_ICONERROR)
      Status = #False
    EndIf
  EndIf
  ProcedureReturn Status
EndProcedure

Debug Cut("c:\PureBasic420\unins000.exe", 5057)

Bon, il y a uniquement le découpage : une seule boucle, pas de goto, pas de réallocation de mémoire. Et çà à l'air de marcher (testé sur 1 fichier ...).
On peut faire le recollage dans le même style.

gnozal a écrit :Tiens Dobro, ton code m'a donné envie d'écrire une variante
Bon, il y a uniquement le découpage : une seule boucle, pas de goto, pas de réallocation de mémoire. Et çà à l'air de marcher (testé sur 1 fichier ...).
On peut faire le recollage dans le même style.

Incorrigible notre Dobro, il n'arrive pas à se passer des goto.
Fred finira peut-être par virer ces instructions ...

A+

@ gnozal , je vais regarder ça de plus pres

@ Denis , arf ! les vieux tromblon séniles c'est comme ça que veut tu

bon pour info j'ai réediter mon code Archaique pour y integré le renommage automatique du nouveau fichier créé si l'original a le malheur de se trouver dans le meme endroit !!

donc plus d'alerte, c'est plus la peine

Moi, j'ose plus dire que ça marche encore pas

J'suis vraiment une plaie...

Kwai chang caine a écrit :Moi, j'ose plus dire que ça marche encore pas
J'suis vraiment une plaie...

déconne ! ???

ça marche pas explique ....

Bah toujour avec ma PNG de 217 Ko
Ligne 44 "Can't alocate memory block of size 0"

Kwai chang caine a écrit :Bah toujour avec ma PNG de 217 Ko
Ligne 44 "Can't alocate memory block of size 0"

tu peux me mettre un lien vers ton image ?

Ayai, ça marche.....

En fait tes premiers codes avait foiré l'image, elle etait toute noire.
Je l'ai remplacé et ça roule

Merci beaucoup DOBRO

PureBasic

.....................

.....................