Все получилось, респект тебе, помогал здоровски, получил много опыта работы с сокетами, ток последний вопросик:
Вот моя структура:
PHP код:
type
FM= packed record
name:string[30];
size:string[20];
end;
обьявляю в клиенте в процедуре чтения сокета:
FileSystem: array of FM;
и далее пытаюсь задать размер, я знаю количество элементов ( KolElem ) и делаю так Setlength(FileSystem,Sizeof(FM)*KolElem);
и выдает ошибку 10053
И еще одно:
когда в сервере собираю файлы в массив:
PHP код:
var
fail:array[0..50] of FM; //файловый менеджер
ищу файлы так:
PHP код:
p:=0;
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
repeat
begin
fail[p].name:=sr.Name;
if (sr.Attr and faDirectory) = faDirectory then
fail[p].size:='Папка' else fail[p].size:=inttostr(sr.Size);
Inc(p);
end;
until FindNext(SR) <> 0; // продолжить поиск
FindClose(SR);
result:=p;
Моно ли как то динамически задавать fail, т.к. я задал его 51, но там же может быть и 100 файлов, как решить эту проблему, т.к. вроде когда обьявляешь большое значение, оперативку лишнюю жрет.
Блин сделал все, кроме динамических массивов, все ок работает, лазить можно, но в папке