forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix, DCD client could cause the app to hang

This commit is contained in:
Basile Burg 2015-03-24 02:29:01 +01:00
parent 34c2477541
commit 269fd1be21
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_dcd.pas
View File

@ -238,7 +238,6 @@ begin
fClient.Parameters.Add(intToStr(fDoc.SelStart - 1)); fClient.Parameters.Add(intToStr(fDoc.SelStart - 1));
fClient.Parameters.Add(fDoc.tempFilename); fClient.Parameters.Add(fDoc.tempFilename);
fClient.Execute; fClient.Execute;
waitClient;
// //
fTempLines.LoadFromStream(fClient.Output); fTempLines.LoadFromStream(fClient.Output);
if fTempLines.Count = 0 then exit; if fTempLines.Count = 0 then exit;
@ -266,7 +265,6 @@ begin
fClient.Parameters.Add(intToStr(fDoc.SelStart - 1)); fClient.Parameters.Add(intToStr(fDoc.SelStart - 1));
fClient.Parameters.Add(fDoc.tempFilename); fClient.Parameters.Add(fDoc.tempFilename);
fClient.Execute; fClient.Execute;
waitClient;
// //
fTempLines.LoadFromStream(fClient.Output); fTempLines.LoadFromStream(fClient.Output);
if fTempLines.Count = 0 then exit; if fTempLines.Count = 0 then exit;
@ -320,7 +318,6 @@ begin
fClient.Parameters.Add(intToStr(i - 1)); fClient.Parameters.Add(intToStr(i - 1));
fClient.Parameters.Add(fDoc.tempFilename); fClient.Parameters.Add(fDoc.tempFilename);
fClient.Execute; fClient.Execute;
waitClient;
// //
aComment := ''; aComment := '';
fTempLines.LoadFromStream(fClient.Output); fTempLines.LoadFromStream(fClient.Output);
@ -345,7 +342,6 @@ begin
fClient.Parameters.Add(intToStr(fDoc.SelStart - 1)); fClient.Parameters.Add(intToStr(fDoc.SelStart - 1));
fClient.Parameters.Add(fDoc.tempFilename); fClient.Parameters.Add(fDoc.tempFilename);
fClient.Execute; fClient.Execute;
waitClient;
// //
str := 'a'; str := 'a';
setlength(str, 256); setlength(str, 256);