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

adjusted the buffer size for filename len

This commit is contained in:
Basile Burg 2014-09-18 21:25:51 +02:00
parent f38fe8b70a
commit e7b55951c3
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ce_dcd.pas
View File

@ -103,7 +103,7 @@ begin
//
lines.LoadFromStream(DCD_client.Output);
list.Clear;
for i := 1 to lines.Count-1 do
for i := 0 to lines.Count-1 do
begin
item := lines.Strings[i];
kind := item[length(item)];
@ -174,8 +174,8 @@ begin
DCD_client.Execute;
//
str := 'a';
setlength(str, 384);
i := DCD_client.Output.Read(str[1], 384);
setlength(str, 256);
i := DCD_client.Output.Read(str[1], 256);
setLength(str, i);
if str <> '' then
begin
@ -197,12 +197,6 @@ initialization
DCD_client.ShowWindow := swoHIDE;
dcdOn := fileExists(DCD_server.Executable) and fileExists(DCD_client.Executable);
lines := TStringList.Create;
{$IFDEF WINDOWS}
// phobos + runtime
{$ENDIF}
{$IFDEF POSIX}
// phobos + runtime
{$ENDIF}
finalization
DCD_server.Active := false;
DCD_client.Active := false;