WriteData

[Elektrolurch]

Hallo

ich habe einmal wieder eine Frage, die mich zur Verzweiflung bringt.
Ich erweitere ein altes Programm mal wieder um eine Funktion.
Ich lese eine Datei in den Speicher und ersetze eine Zeichenkette gegen eine neu. (Patch)
Soweit klappt auch alles.
Nur wenn ich versuche den Speicherinhalt wieder in eine Datei zu speichern kommt mein Problem.

Code: Alles auswählen

    If CreateFile(0, Ziel.s + "Datei")
      WriteData(0, *Dateiinhalt, 2000)
      CloseFile(0)
    Else
      Debug "Fehler"
    EndIf

Diese Zeilen funktionieren und ich habe eine Datei mit den ersten 2000 Zeichen.

Code: Alles auswählen

    If CreateFile(0, Ziel.s + "Datei")
       WriteData(0, *Dateiinhalt , Dateilaenge.l)
      CloseFile(0)
    Else
      Debug "Fehler"
    EndIf

Nach diesen Zeilen habe ich zwar eine Datei mit der Länge der Ursprungsdatei, jedoch stehen nur NUL darin.
Kann mir jemand erklären wo mein Fehler liegt.

Nachtrag:
Ich habe nun noch eine dritte Variante probiert.

Code: Alles auswählen

  If CreateFile(0, Ziel.s + "Datei")
    For I = 0 To Dateilaenge.l
      WriteData(0, *Dateiinhalt + I, 1)
    Next I  
    CloseFile(0)
  Else
    Debug "Fehler"
  EndIf

Die nun erstellte Datei beginnt zwar richtig, hat aber lediglich 8190 Zeichen, obwohl die Dateilänge eigentlich 4069386 Zeichen ist.

BYe André

[HeX0R]

Komm schon, das bekommst du bestimmt besser hin.

Ich werfe einem Mechaniker auch nicht ein paar Schrauben hin und sage er soll einen BMW draus bauen...

[7x7]

Syntax

Ergebnis = CreateFile(#Datei, DateiName$)
Beschreibung

Öffnet eine leere Datei. Existierte die angegebene Datei bereits, wird diese geöffnet und mit einem leeren Inhalt ersetzt! Seien Sie vorsichtig!

Liegt's daran?

[Elektrolurch]

Hi

Wie meinst du dass?
Möchtest du mehr Code?

Es ist schlecht was Eigenständig lauffähiges aus meinem Progamm herauszutrennen.
Aber ich glaube ich komme meinem Fehler auf die Schliche.
Ich schreibe nämlich meine Datei über das Netzwerk auf eine Linuxfreigabe.
Ich habe gerade eben auf mein lokales Laufwerk geschrieben und da hörten die Datei nicht nach 8190 Zeichen auf

Code: Alles auswählen

  If CreateFile(0, "h:\Datei")
    For I = 0 To Dateilaenge.l
      WriteData(0, *Dateiinhalt + I, 1)
      ;Debug I
    Next I  
    CloseFile(0)
  Else
    Debug "Fehler"
  EndIf

Sie war eher ein Zeichen zu lange, aber das liegt wohl an der For Next Schleife.

@ 7x7
Ich glaube, nicht da die Datei ja nicht immer leer ist, außerdem erhält sie momentan ja einen anderen Namen wie die Quelldatei, ergo existiert sie ja nicht.
BYe André

[Zaphod]

Was HeXOR meint ist, dass es nicht möglich ist aus dem Code den du gepostet hast den Fehler zu finden.

[Elektrolurch]

Hi

ich habs mir ja schon fast gedacht.
Ich habe jetzt mal das wichtigste herausgeschnitten und zusammengestrichen, dass es lauffähig ist.
Ich denke aber nicht, dass es mehr verwertbare Informationen hat als zuvor.
Aber sei's drum.
Das Problem scheint der Ort zu sein, auf den ich zu speichern versuche.
Ich kann zwar jetzt die Datei im Ordner des Programms speichern und anschließend das File verschieben, aber meine Frage bleibt.
Hier der Code

Code: Alles auswählen

;Einlesen
Dateilaenge.l = FileSize("\\192.168.1.7\import\A")
*Dateiinhalt  = AllocateMemory(Dateilaenge.l)
If ReadFile(0, "\\192.168.1.7\import\A")
  ReadData(0, *Dateiinhalt, Dateilaenge.l)
  CloseFile(0)
Else
  Debug "Fehler beim einlesen"
EndIf
;Kontrollieren ob schon gepatched
For I = 0 To  Dateilaenge.l
  If PeekS( *Dateiinhalt + I, 10) = "Alter Text"
    Debug "Ist schon gepatched"
    End
  EndIf
Next I
;Patchen
For I = 0 To  Dateilaenge.l
  If PeekS( *Dateiinhalt + I, 10) = "Alter Text"
    PokeS(*Dateiinhalt + I, "Neuer Text" , 10)
    Debug "Jetzt gepatched"
  EndIf
Next I
;Dieses Speichern geht
If CreateFile(0, "h:\B")
  WriteData(0, *Dateiinhalt, Dateilaenge.l)
  CloseFile(0)
Else
  Debug "Fehler"
EndIf
;Dieses Speichern geht nicht
If CreateFile(0, "\\192.168.1.7\import\B")
  WriteData(0, *Dateiinhalt, Dateilaenge.l)
  CloseFile(0)
Else
  Debug "Fehler"
EndIf

BYe André

[STARGÅTE]

Meiner Meinung nach hast du einfach keine Rechte auf dem NetzwerkPfad etwas zu erstellen/schreiben.

PS: ich hoffe dein Code sieht nicht wirklich so aus.
denn:
PokeS(*Dateiinhalt + I, "Neuer Text" , 10)
schreibt immer noch n NULL ans Ende und vernichtet somit u.u. nachfolgende Daten.

[Elektrolurch]

Hi Stargate

Doch die Rechte habe ich ich kann ja je nach Versuch Dateien mit verschiedenen Inhalten erzeugen oder am Ende die fertige Datei dorthin kopieren.
Der Ordner hat volle Freigabe zum lesen und schreiben für alle!

Leider sieht mein Code Tatsächlich so aus.
Das mit dem nachgestellten NUL habe ich nicht gemerkt da die nächsten Stellen sowieso NUL sind.
Aber wenn wir schon dabei sind, wie mache ich es denn richtig?
Ich lerne gerne etwas dazu, wenn ich auch zugeben muß, mit dem behalten wird es immer schwieriger.

BYe André

[ts-soft]

Es kann IMHO nur an den fehlenden Rechten liegen, ich hab Deine Speichern Routine mal für mich zum Testen
angepasst und es geht einwandfrei.

Code: Alles auswählen

Define.s Text = "Holla, der Rucksack brennt"

If CreateFile(0, "\\192.168.1.100\shared\B")
  WriteData(0, @Text, Len(Text))
  CloseFile(0)
Else
  Debug "Kein schreiben möglich"
EndIf

Ansonsten bleiben noch Security-Tools, die blockieren oder keine Netzwerkverbindung übrig.

[Elektrolurch]

Hi ts-soft

Ich habe gerade einmal ausprobiert, was Stargate mir zeigte.
Ich habe mir eine kleine Textdatei erstellte und den Text wie besschrieben geändert.
Siehe da Stargate hat tatsächlich Recht, an der Stelle nach dem Einfügen steht ein NUL.

Was aber für micht interessanter ist, ist dass beide gespeichert Versionen identisch sind.
Also bei kleinen Dateien funktionien beide Speicherorte.

Das Programm das ich patchen muß hat aber 3,88 MB und dann kommen auf einmal die Probleme.

BYe André