micro SD file auslesen

TheBeginner

Schreiberling

Gender: n/a
Location: Wunsiedel Bayern
Age: 66
Posts: 755
Registered: 06 / 2013

Subject:

micro SD file auslesen

· Posted: 19.04.2021 - 18:04 · #1

Hallo,
ich stehe auf dem Schlauch.
Ich lese eine file von meiner micro sd und sende die an meinen Computer
über Lan.

Mein Delphi Programm gibt mir nach einigen Zeilen eine Fehlermeldung
>>>Max. Zeilenlänge überschritten<<<
Mein Empfangsstring schiebe ich in ein -> Form1.RichEdit1.Lines.Add(EmpfStr);

Ich verstehe nicht wo ich den Fehler suchen soll.

Code

//============================================================================='
//  MMC_Read_File;
Procedure mmc_Read_File;
Begin
  EmpfStr:= '';
  if Form1.Lab_Name.Caption <> '---' then   //filename übergeben
  Begin
    //1. sende 413  für     F16_FileAssign    F16_FileReset(f);
    SendeStr:= '413' + Form1.Lab_Name.Caption;
    Form1.TCPClient.IOHandler.Write(SendeStr , IndyTextEncoding_UTF8);
    EmpfStr:= Form1.TCPClient.IOHandler.ReadLn(IndyTextEncoding_ASCII);
    if EmpfStr = 'open file' then
    begin
      ShowMessage('open file');
    end;

    //File download
    SendeStr:= '411';
    Form1.TCPClient.IOHandler.Write(SendeStr , IndyTextEncoding_UTF8);
    repeat
      EmpfStr:='';
      EmpfStr:= Form1.TCPClient.IOHandler.ReadLn(IndyTextEncoding_ASCII);
      Form1.RichEdit1.Lines.Add(EmpfStr);
    until EmpfStr = 'F16_EndOfFile';
  end;
end;

Gruß Frank

TheBeginner

Schreiberling

Gender: n/a
Location: Wunsiedel Bayern
Age: 66
Posts: 755
Registered: 06 / 2013

Subject:

Re: micro SD file auslesen

· Posted: 19.04.2021 - 18:19 · #2

Hallo,

ich habe nun mal meine Test File mit 112000 byte auf 99000 byte
verkleinert jetzt gehts ohne Fehler.!

Was ist das ???

PS (der 4 Bit Modus ist der Hammer)

Gruß Frank

Merlin

Administrator

Gender:
Age: 24
Posts: 1372
Registered: 03 / 2005

Subject:

Re: micro SD file auslesen

· Posted: 19.04.2021 - 19:14 · #3

I presume it is a text file you are transferring?

Out of curiosity, why do you send in UTF8 but receive in ASCII? I would have thought ASCII in both directions was appropriate.

TheBeginner

Schreiberling

Gender: n/a
Location: Wunsiedel Bayern
Age: 66
Posts: 755
Registered: 06 / 2013

Subject:

Re: micro SD file auslesen

· Posted: 19.04.2021 - 19:48 · #4

Hello Merlin,
Thanks for the tip, now it goes, I have it with me
99Kbyte with 122Kbyte and tested with 204Kbyte,
I don't get any more errors

Greetings Frank

Hallo Merlin,
Danke für den Tipp, jetzt gehts, ich habe es mit
99Kbyte mit 122Kbyte und mit 204Kbyte getestet,
ich bekomme keine Fehler mehr

Gruß Frank

Code

//============================================================================='
//  MMC_Read_File;
Procedure mmc_Read_File;
Begin
  EmpfStr:= '';
  if Form1.Lab_Name.Caption <> '---' then   //filename übergeben
  Begin
    //1. sende 413  für     F16_FileAssign    F16_FileReset(f);
    SendeStr:= '413' + Form1.Lab_Name.Caption;
    Form1.TCPClient.IOHandler.Write(SendeStr , IndyTextEncoding_ASCII);      IndyTextEncoding_UTF8
    EmpfStr:= Form1.TCPClient.IOHandler.ReadLn(IndyTextEncoding_ASCII);      IndyTextEncoding_ASCII
    if EmpfStr = 'open file' then
    begin
      ShowMessage('open file');
    end;
    //File download
    SendeStr:= '411';
    Form1.TCPClient.IOHandler.Write(SendeStr , IndyTextEncoding_ASCII);
    repeat
      EmpfStr:='';
      EmpfStr:= Form1.TCPClient.IOHandler.ReadLn(IndyTextEncoding_ASCII);
      Form1.RichEdit1.Lines.Add(EmpfStr);
    until EmpfStr = 'F16_EndOfFile';
    ShowMessage('Fertig');
  end;
end;

micro SD file auslesen

Registered users in this topic