Guten morgenm, ich werde mein Problem doch etwas besser beschreiben.
Ich habe an meinen ESP32 eine micro SD Card und diese will ich auch
auslesen. Mit Butten ListDir.
Der Thread Funktioniert Super ich bekomme alle Daten rein.
Delphi-Quellcode:
procedure TMyThread.Execute;
var i : integer;
Begin
while bool = true do
begin
if Form1.TCPClient.Connected = true then
begin
if not Form1.TCPClient.IOHandler.InputBufferIsEmpty then
begin
rec_str:= Form1.TCPClient.IOHandler.ReadLn();
Synchronize(
procedure
begin
Dir_List_str:= Dir_List_str +rec_str;
Form1.Memo1.Lines.Add(rec_str);
end);
end;
end;
end;
End;
Den Dir_List_str:= ''; leere ich bevor ich den Befehl Form1.TCPClient.IOHandler.Writeln('D' +#12); sende.
Hier meine Button ListDir;
Delphi-Quellcode:
//List Dir
procedure TForm1.ListDirClick(Sender: TObject);
begin
Dir_List_str:= '';
memo1.Clear;
ListBox1.Clear;
Form1.TCPClient.IOHandler.Writeln('D' +#12);
showmessage('Dir List eingelesen.!');
Proc_Fat16_Dir_anzeigen;
end;
jetzt muss ich showmessage('Dir List eingelesen.!'); vorher machen,
mache ich das nicht und gehe dann sofort in Proc_Fat16_Dir_anzeigen.
Ist der Dir_List_str leer.
es ist mir schon klar wenn ich den Befehl Form1.TCPClient.IOHandler.Writeln('D' +#12); sende
das es eine Zeitlang dauert bis die Daten da sind.
Ich denke ich gehe zu schnell in meine Proc_Fat16_Dir_anzeigen;
Ich hoffe ich habe das jetzt besser erklärt.
mfg