XProfan

- Página 1 -

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

test2.txt

4 kB

Hochgeladen:

03.12.2004

- Página 2 -

Andreas
Spelter

Oh weh, bin Yo blöd!

Lo war nada ASSIGN y CLOSE el el Karte festhält, pero el FINFFIRST con el Yo vorher überprüfe si el Expediente überhaupt disponible es.

Yo hoffe Ihr könnt me todavía una vez verzeihen.

Andreas

Schön el lo ahora funzt.

Dennis
Schulmeister

Yo fürchte, dass wir no bastante sin Konsequenzen wegkommen, Andreas. Seien wir veces no así. Drei veces el Roland-Unser y zwei veces nächtlich el Profano²-Kranz debería genügen.

(Fast) alle Profan²-Versionen seit Version 2.6, sowie (fast) alle Windows-Versionen seit Windows 3.1