XProfan

Nun, Yo verstehe el problema.

Einfache Cuestión para el Anfang: Wenn assign/close como tal vez algo verbasselt - versuche doch extern a el file a kommen.

Entweder probierst Usted lo primero con el Profanschem Copy oder entonces con el Command.Com / Cmd Copy.

Quasi:
Kompilieren Marca Separación

shell "cmd /c copy file.txt c:\tmp.txt"
assign #1,"C:\tmp.txt"
.

re>

So bekommst zumindest heraus obs wirklich al Profano oder al OS liegt.

Salve, IF

30.11.2004 ▲

¡Hola Andreas...

Leider Yo no blassen Schimmer de PCMCIA - aber tal vez hilft auch algo Brainstorming.

Versuche doch veces con z.B.
Kompilieren Marca Separación

CHDIR $WINPATH

después de el Schließen el Expediente dein Arbeitsverzeichnis en deine Festplatte a legen.

30.11.2004 ▲

Jörg
Sellmeyer

¡Hola Andreas,
Tal vez reicht auch ya una FileMode 0 para Readonly antes el Asignar.
Saludo
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

01.12.2004 ▲

Andreas
Spelter

Gracias para el Tips, alles probiert, nichts hilft:

Solange mein Programa aktiv es kann Yo el Karte no deaktivieren, incluso entonces no si yo el Expediente de el Karte con shell cmd... en el Festplatte kopiert y de hay gelesen habe.

Noch mehr Ideen?

Andreas

PS: Hab gerade todavía una Notebook con Windows 98 gefunden, el stellt se con mi Programa no así pingelig a: Karte fuera, Karte rein, einlesen va.

01.12.2004 ▲

Yo Usted hier veces ne dll gebastelt - versuchs veces así.

Wichtig esta es el el DLL no por usedll geladen se - pero sólo por extern.
El DLL ha auch sólo una Función CP Filename1 Filename2 CopyFileMode.

Mit el einstellbaren CopyFileMode kannst Usted sí veces rummspielen.

Lo kann aber ser el el DLL con komischen Pfaden no klarkommt.
Teste lo Por favor, sólo Yo en LW C. Also en me klappte lo wunderbar.

So gehts:
Kompilieren Marca Separación

cls
print external ("cp.dll","cp","c:S2.BMP","C:s4.bmp",0)+" Bytes"
waitkey
end
Open Access
open_access_ReadOnly          = $0000; { ---- ---- ---- -000 }
open_access_WriteOnly         = $0001; { ---- ---- ---- -001 }
open_access_ReadWrite         = $0002; { ---- ---- ---- -010 }
Open share rights
open_share_DenyReadWrite      = $0010; { ---- ---- -001 ---- }
open_share_DenyWrite          = $0020; { ---- ---- -010 ---- }
open_share_DenyRead           = $0030; { ---- ---- -011 ---- }
open_share_DenyNone           = $0040; { ---- ---- -100 ---- /font>

Salve, IF

cp.dll	7 kB

Hochgeladen:	02.12.2004

Ladeanzahl:
		Descargar

Andreas
Spelter

Gracias para el Mühe, aber esta DLL no trabajo para mí.

- bajo Windows 98 hängt se el Programa simplemente weg
- bajo Windows 2000 hay siempre zwei Fehlermeldungen y es entonces weg
- bajo Windows XP producido lo entweder una Expediente con wirrem Dateinamen y falschem Inhalt oder es después de zwei Fehlermeldungen weg

Tuve para esta Versuche auch wirklich sólo dieses Programa traducido:

cls
imprimir external (cp.dll,cp,c:est1.txt,c:est2.txt,0)+ Bytes
waitkey
end

Andreas

Windows 2000 1.jpg Prevista

11 kB

Hochgeladen:

02.12.2004

Windows 2000 2.jpg Prevista

11 kB

Hochgeladen:

02.12.2004

Windows XP 1.jpg Prevista

13 kB

Hochgeladen:

02.12.2004

Windows XP 2.jpg Prevista

13 kB

Hochgeladen:

02.12.2004

Welches Profano hast?

Wenn <xprofan, entonces mache en lugar de

imprimir external (cp.dll,cp,c:est1.txt,c:est2.txt,0)+ Bytes

simplemente

f1$=c:est1.txt
f2$=c:est2.txt
imprimir external (cp.dll,cp,addr(f1$),addr(f2$),0)+ Bytes

Salve, IF

Andreas
Spelter

Yo arbeite hier con Profano 7.0 bajo Windows XP.

Mit el Umweg en Variables ha lo una vez fast funktioniert: Lo wurde el richtige Expediente kopiert, el Ziel hatte auch el richtigen Namen al Ende el Expediente fueron sin embargo algunos Zeilen gelöscht y irgendwelcher Unsinn angehängt.

En allen más Versuchen passierte sin embargo nichts mehr, auch no una Neustart de Windows, el Programa hängt se ahora siempre después de test weg.

Andreas

cls
declarar f1$
declarar f2$
imprimir test
f1$=c:est1.txt
f2$=c:est2.txt
imprimir external(cp.dll,cp,addr(f1$),addr(f2$),0)+ Bytes
waitkey
end

Jörg
Sellmeyer

¡Hola,
Usted mußt en cada Fall entweder Großbuchstaben para el Literale benutzen oder el Backslash doppelt escribir.
Ansonsten interpretiert Profano el como Tabulator.
Also:
C:TEST.TXT
c:\test.txt
Wenn lo tatsächlich ya en imprimir test hängt, fällt me allerdings auch nix a una.
Saludo
Jörg

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

Relacionado con la Imprimir <- war wirklichn blödes Ejemplo.

Wäre sí no el 1. Idioma Escsequenzen.

Machs doch anders - si la Anwendung final ser muß - entonces beende ellos doch. Machen wir una Trick. Laß deine Exe el File simplemente encima ne 2. Instanz kopieren. Solle doch deine exe se incluso aufrufen con nem parameter.

shell par$(0)+ -copyit

Su exe stellt al anfang des Programmes fest el lo con nem Parámetro comenzó wurde:

if trim$(par$(1))=-copyit

copy bla bla
FIN

endif

y kopiert el File. El exe el lo kopierte is doch entonces final.

Was como nun el Diferencia ser se zwischen el Aufruf uno CMD oder uno Eigenen exe weiß Yo auch no - aber una Intento isses wert.

Salve, IF

Andreas
Spelter

lo va voran: Das Kopieren funktioniert ahora, aber el Expediente se beim kopieren verändert:

Andreas

cls
declarar f1$
declarar f2$
imprimir test
f1$=d:\test1.txt
f2$=d:\test2.txt
imprimir external(cp.dll,cp,addr(f1$),addr(f2$),0)+ Bytes
waitkey
end

test1.txt

1 kB

Hochgeladen:

03.12.2004