Aus Datei auslesen splitten und zusammen setzten?

[gandime]

Hi,
hehe sry für den komischen Namen mir is nichts besseres eingefallen
Also ich möchte:
-ein Stück einer Datei auslesen
-in einen String umwandel
-dann wieder in einen Buffer laden
-und die Stücke wieder in einer Datei zusammen setzen

jetzt fragt ihr euch warscheinlich warum
das ist teil eines filesends was ich euch mal ersparen wollte

hab schonmal was versucht aber es funzt noch nicht so wie ich es will

Delphi-Quellcode:

procedure Tfrm_server.Button1Click(Sender: TObject);
var
  Buffer,Buffer2: array[0..4095] of Byte;
  s_send:string;
  fs_file,fs_file2:Tfilestream;
  i:integer;
begin
    fs_file:=Tfilestream.create('D:\a.mp3',fmOpenRead or fmShareDenyWrite);
  while True do
  begin
    s_send:='';
    fs_file2:=TFilestream.Create('X:\a.mp3', fmCreate or fmShareDenyWrite);
    fs_file.read(Buffer,sizeof(Buffer));
    for I := 0 to sizeof(buffer) do
      s_send:=s_send+pchar(@buffer[i]);
    for I := 1 to length(s_send) do
      Buffer2[i-1]:=byte(s_send[i]);//hier Fehler
    fs_file2.Position:=fs_file2.size;  
    fs_file2.WriteBuffer(Buffer2,sizeof(Buffer2));
    if fs_file.Position>=fs_file.Size then
    begin
      fs_file2.free;
      exit;
    end;
    fs_file2.free;
  end;
end;

wenn die while Schleife das zweite mal durchläuft gibt es dort folgenden Fehler:

Zitat:

access violantion at 0x7e9399e6: read of adress 0x7e9399e6.

was kann ich an dem Code verbessern hab das jetzt einfach mal nach Gefühl gemacht


mfg
gandime

[DeddyH]

Ich frage mich, was die Zeilen 14 und 15 machen sollen. Bei Read oder Write wird die Position doch automatisch versetzt.

[gandime]

ups hatte ich vergessen rauszunehmen habs mal editiert

[marabu]

Hallo,

Zitat von gandime:

... was kann ich an dem Code verbessern ...

der Event Handler für Button.OnClick sollte nur Code beinhalten, der im engen Zusammenhang mit der Benutzerschnittstelle steht. In deinem Fall lässt sich das Kopieren einer Datei auch in einer einzigen Zeile erledigen: CopyFile(). Stehst du aber auf Handarbeit, dann würde ich dir die Stream-Methode CopyFrom() empfehlen.

An deinem Code fällt mir spontan folgendes auf:

(1) Der Aufruf von Read() liefert die tatsächlich gelesene Zeichenanzahl zurück und du verwirfst diese wichtige Information.
(2) Die Iteration über Buffer geht auf jeden Fall um einen Schritt zu weit.
(3) Die Endgröße für den String ist bekannt und du erweiterst den String jewils um ein Zeichen, anstelle die Engröße mit SetLength() festzulegen.
(4) Statt pchar(@buffer[i]) kannst du Chr(buffer[i]) schreiben oder du deklarierst deinen Buffer gleich mit dem richtigen Basistyp Char.
(5) Du hast dir die Dokumentation der Stream-Komponente bestimmt noch nicht genau angesehen.

Grüße vom marabu

[Noobinator]

was mich in meinem betrunkenen Zustand zuserst anspringt ist erstmal das while true do was ja erstmal eine Endlosschleife darstellt, und danach das exit in einer if.

das ist doch irgendwie anderst.

warum nicht:

Delphi-Quellcode:

while fs_file.Position < fs_file.Size do
begin
...
end;
fs_file2.free;

[snow]

Zitat:

filesends

???

willst du eine Datei wie einen string versenden?

dann solltest du probleme bekommen mit zeichen die nicht stringkonform sind (alles unter #33 mit ein paar ausnahmen).

es ich vermute mal du willst die datei via LAN versenden. Bei Indy gäbe es da eine komponente(mir fällt grad der name nicht ein).

eine andere möglichkeit wäre es, das byte in einen zweistelligen Hexwert umzuwandeln. dann hätteste eine einheitliche und vor allem noch effiziente mehtode.

gruß snow

[gandime]

wie wandele ich denn die datei bzw stücke von der datei in hex um?

[snow]

byte auslesen und dann InttoHex(byte,2);

Das gibt einen 2 stelligen Hexstring zurück.

für Byte = 255 würde InttoHex(byte,2) = 'FF' ausprucken.

dann kannste jedes byte was du haben willst als Hexstring erhalten und dann die strings zu einem großen string zusammenaddieren.

andersrum gehts auch. einfach den string alle 2 zeichen kappen und die substrings in ein Byte umwandeln.

das ist aber alles andere als schnell. viel weinfacher gehts mit sendstream.

gruß snow;

[shmia]

Wenn du Daten aus Stream A nach Stream B kopieren möchtest, dann kannst du einfach die Methode CopyFrom verwenden.

Delphi-Quellcode:

fs_file:=Tfilestream.create('D:\a.mp3',fmOpenRead or fmShareDenyWrite); 
fs_file2:=TFilestream.Create('X:\a.mp3', fmCreate or fmShareDenyWrite); 
fs_file2.CopyFrom(fs_file, 500);  // 500 Bytes kopieren

Wenn du die Daten modifizieren möchtest brauchst du einen Puffer.
Ich würde dir hier einen normalen (Ansi-)string empfehlen.

Delphi-Quellcode:

var
   buffer:string;
...
fs_file:=Tfilestream.create('D:\a.mp3',fmOpenRead or fmShareDenyWrite); 
fs_file2:=TFilestream.Create('X:\a.mp3', fmCreate or fmShareDenyWrite); 
SetLength(buffer, 4096);  // Speicher reservieren

  while irgendwas do
  begin
    fs_file.ReadBuffer(buffer[1], 256);  // 256 Bytes lesen
    buffer[20] := chr($a0); // ein Byte ändern
    fs_file2.WriteBuffer(buffer[1], 256);  // 256 Bytes schreiben
  end; 

// TOLL ! "buffer" braucht nicht freigegeben zu werden; das macht Delphi automatisch