Announcement

Collapse
No announcement yet.

Memory Problems with win98 (1st edition)

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Memory Problems with win98 (1st edition)

    Hello,

    I´ve a dos-program and I`m in full size mode.

    Under Dos 6.22 there are no errors.
    Under win98 following works sometimes and sometimes not:

    - shell "pkxarc a:test ewsum.dat"
    - shell "copy "a:\kasarc.arc c:\refo\kasarc.arc"
    - sometimes files will not appear onto Disk; but the disk is ok

    Is it possible, that i use too much memory ??? ( no error code there)

    Any other Idea´s ?

    ( The code is too big to get it to the forum )

    so I send only a little
    [CODE]

    'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[Verkaufsdaten auf Disk_]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
    if zahl="6060" or zahl="6666" then
    lw$="a:"

    diskfrei 'check diskplace
    do
    'data there
    if vkdaten_nicht_da? then exit loop
    'diskspace ok
    if zuwenig_diskettenplatz? then exit loop

    'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[packe ewjou.dat_]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
    dati$="xfer."+zaehl$("",999,1)
    'pack all
    shell "pkarc -u "+lauf$+dati$+" "+lauf+"ewjou.dat >nul"
    ' shell "pkarc -a "+lauf$+dati$+" "+lauf+"neu_ean.txt>nul"

    'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ[Sicherung EC-daten dazupacken]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
    anzeige "Sicherung EC-Daten"
    datiec$="EC"+zaehl$("",9999,1)+".arc"
    shell "pkarc -u "+lauf$+datiec$+" "+lauf+"eckauf.dat >nul"
    shell "pkarc -u "+lauf$+dati$+" "+lauf$+datiec$+">nul"

    anzeige "Sicherung Punktdatei "+ld$
    shell "pkarc -u "+lauf$+dati$+" "+ld$+" >nul"
    'check packed file
    if tesarc%(lauf$+dati$) then
    anzeige "arc ok "+dati$
    else
    fehler "Festplatte ? -bea-dis.bas"
    anzeige "Festplatte ? -bea-dis.bas"
    sleep:nix$=inkey$
    exit loop
    end if

    'xfer123.arc wird auf Lw$ kopiert !!!!
    'hier gibt's fehler probiere es mit xcopy

    if copyfile(lauf$+dati$,lw$+dati$) = -1 then

    'shell "copy "+lauf$+dati$+" "+lw$+dati$+" >nul"

    'shell "copy "+lauf$+dati$+" "+vkdat$+" /V >nul"

    if tesarc%(lW$+dati$) then
    name lauf$+"ewjou.dat" as lauf$+"ewjou."+zaehl$("",999,0)
    'if dir$(lauf$+"neu_ean.txt")<>"" then
    'kill lauf$+"neu_ean.txt"
    'end if
    anzeige dati$+" auf Laufwerk "+lw$+" kopiert"
    else
    fehler "keine Daten auf "+lw$+dati$
    name lauf$+dati$ as lauf$+"xxxx."+zaehl$("",999,0)
    'benenne sicherung um auf xxxx.999
    sleep:nix$=inkey$
    exit loop
    end if
    anzeige "Datendiskette erfolgreich erstellt "+zahl
    sleep:nix$=inkey$
    else
    'error on copy sometimes
    fehler "Fehler beim Copieren von "+lw$+dati$
    end if

    exit loop 'zwangsausstieg
    loop

    zahl=""

    end if


    [CODE]

    Best regards

    Matthias Kuhn

    ------------------

  • #2
    - shell "copy "a:\kasarc.arc c:\refo\kasarc.arc"
    - sometimes files will not appear onto Disk; but the disk is ok
    If your SHELL statement is the one in the code (
    Code:
    shell "copy "+lauf$+dati$+" "+lw$+dati$+" >nul"
    ) then you aren't seeing possible COPY error messages because of the ">nul", so are you sure anyway that COPY isn't giving an error or asking for overwrite confirmation ?

    ------------------
    Davide Vecchi
    [email protected]

    Comment

    Working...
    X