XProfan

Nun, ich verstehe das Problem.

Einfache Frage per den Anfang: Wenn assign/close da vielleicht etwas verbasselt - versuche doch extern an das file zu kommen.

Entweder probierst Du es erstmal mit dem Profanschem Copy oder dann mit dem Command.Com / Cmd Copy.

Quasi:
Kompilieren Markieren Separieren

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

re>

So bekommst zumindest heraus obs wirklich am Profan oder am OS liegt.

Salve, iF

30.11.2004 ▲

Hallo Andreas...

Leider habe ich keinen blassen Schimmer von PCMCIA - aber vielleicht hilft auch etwas Brainstorming.

Versuche doch mal mit z.B.
Kompilieren Markieren Separieren

CHDIR $WINPATH

nach dem Schließen der File dein Arbeitsverzeichnis auf deine Festplatte zu legen.

30.11.2004 ▲

Jörg
Sellmeyer

Hallo Andreas,
Vielleicht reicht auch schon ein FileMode 0 per Readonly vor dem Assign.
Saluto
Jörg

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

01.12.2004 ▲

Andreas
Spelter

Danke per die Tips, alles probiert, nichts hilft:

Solange mein Programm aktiv ist kann ich die Karte nicht deaktivieren, selbst dann nicht wenn ich die File von der Karte mit shell cmd... auf die Festplatte kopiert und von dort gelesen habe.

Noch mehr Ideen?

Andreas

PS: Hab gerade noch ein Notebook mit Windows 98 gefunden, das stellt sich mit meinem Programm nicht so pingelig an: Karte raus, Karte rein, einlesen geht.

01.12.2004 ▲

Ich hab Dir hier mal ne dll gebastelt - versuchs mal damit.

Wichtig dabei ist das die DLL nicht per usedll geladen wird - sondern nur per extern.
Die DLL hat auch nur eine Funktion CP Filename1 Filename2 CopyFileMode.

Mit dem einstellbaren CopyFileMode kannst Du ja mal rummspielen.

Es kann aber sein das die DLL mit komischen Pfaden nicht klarkommt.
Teste es bitte erst wie ich auf LW C. Also bei mir klappte es wunderbar.

So gehts:
Kompilieren Markieren Separieren

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

Downloadcounter:
		Download

Andreas
Spelter

Danke per die Mühe, aber diese DLL funktioniert bei mir nicht.

- unter Windows 98 hängt sich das Programm einfach weg
- unter Windows 2000 gibt es immer zwei Fehlermeldungen und ist dann weg
- unter Windows XP erzeugt es entweder eine File mit wirrem Dateinamen und falschem Inhalt oder ist nach zwei Fehlermeldungen weg

Ich hatte per diese Versuche auch wirklich nur dieses Programm übersetzt:

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

Andreas

Windows 2000 1.jpg Preview

11 kB

Hochgeladen:

02.12.2004

Windows 2000 2.jpg Preview

11 kB

Hochgeladen:

02.12.2004

Windows XP 1.jpg Preview

13 kB

Hochgeladen:

02.12.2004

Windows XP 2.jpg Preview

13 kB

Hochgeladen:

02.12.2004

Welches Profan hast?

Wenn <xprofan, dann mache statt

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

einfach

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

Salve, iF

Andreas
Spelter

Ich arbeite hier mit Profan 7.0 unter Windows XP.

Mit dem Umweg circa die Variablen hat es einmal fast funktioniert: Es wurde die richtige File kopiert, das Ziel hatte auch den richtigen Namen am Ende der File wurden jedoch einige Zeilen gelöscht und irgendwelcher Unsinn angehängt.

Bei allen weiteren Versuchen passierte jedoch nichts mehr, auch nicht nach einem Neustart von Windows, das Programm hängt sich jetzt immer nach test weg.

Andreas

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

Jörg
Sellmeyer

Ciao,
Du mußt auf jeden Fall entweder Großbuchstaben per die Literale benutzen oder den Backslash doppelt schreiben.
Ansonsten interpretiert Profan das als Tabulator.
Also:
C:TEST.TXT
c:\test.txt
Wenn es tatsächlich schon bei print test hängt, fällt mir allerdings auch nix dazu ein.
Saluto
Jörg

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

Das mit dem Print <- war wirklichn blödes Beispiel.

Wäre ja nicht die 1. Sprache mit Escsequenzen.

Machs doch anders - wenn die Anwendung beendet sein muß - dann beende sie doch. Machen wir ein Trick. Laß deine Exe das File einfach circa ne 2. Instanz kopieren. Solle doch deine exe sich selbst aufrufen mit nem parameter.

shell par$(0)+ -copyit

Deine exe stellt am anfang des Programmi fest das es mit nem Parameter gestartet wurde:

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

copy bla bla
END

endif

und kopiert das File. Die exe die es kopierte is doch dann beendet.

Was da nun der Unterschied sein soll zwischen dem Aufruf einer CMD oder einer Eigenen exe weiß ich auch nicht - aber ein Versuch isses wert.

Salve, iF

Andreas
Spelter

es geht voran: Das Kopieren funktioniert jetzt, aber die File wird beim kopieren verändert:

Andreas

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

test1.txt

1 kB

Hochgeladen:

03.12.2004