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