[PhoeniX]

Потому что ты работаешь с канвой TImage, а не TBitmap. Я тебе скинул работающий пример копирования в bitmap. И, да, из файлов лучше использовать TFileStream.

[Kingcss]

Вот еще проблемка появилась, при создании файлового менеджера.
Вообщем задача: передать названия файлов и папок в нужной мне директории с одного компа и вывести это дело в ListView на другом.
Делаю так:
на обоих компах:

PHP код:

type 
FM= packed record 
name:string; 
size:integer; 
folder:boolean; 
end; 


на сервере(который отправляет):

PHP код:

var 
fail:array[0..50] of FM; 

procedure TForm1.SendFileList(path:string); 
var 
sr: TSearchRec; 
p:integer; 
begin 
p:=0;{Собираю названия папок и файлов в в массив fail 
 if FindFirst(path+'*.*', faAnyFile, sr) = 0 then 
  begin 
  repeat 
   fail[p].name:=SR.Name; 
   if (SR.Attr = faDirectory) then 
   fail[p].folder:=true; 
   Inc(p); 
  until FindNext(sr) <> 0; 
  FindClose(sr); 
 end; 
//FsSs.Socket.Connections[0].SendText(inttostr(p-1)+'#');{Отправляю количество файлов и папок в директории, пишет что 24, хотя в реале их 20, включая скрытые файлы} 
FsSs.Socket.Connections[0].SendBuf(fail,sizeof(fail));{Отправляю массив} 
end; 


Далее код клиента:

PHP код:

procedure TForm3.FsCsRead(Sender: TObject; Socket: TCustomWinSocket); 
var 
FileSystem: array[0..50] of FM; 
ListItem: TListItem; 
KolElem:integer; 
i:integer; 
s:string; 
size:integer; 
begin 
s:=Socket.ReceiveText; 
KolElem:=strtoint(copy(s,0,pos('#',s)-1)); {принимаю количество элементов} 
size:=Socket.ReceiveLength; 
Socket.ReceiveBuf(FileSystem,size); 
for i:=0 to KolElem-1 do begin{заношу данные в ListView} 
ListItem:=ListView1.Items.Add; 
ListItem.Caption:=FileSystem[i].name; 
ListItem.SubItems.Add(inttostr(FileSystem[i].size)); 
if FileSystem[i].folder = true then ListItem.SubItems.Add('Папка') 
else ListItem.SubItems.Add(' '); 
end; 
end; 


Ничего не передается, только в листвиев добавляется размер, который он непонятно откуда берет, т.к. я его не забивал, там должно быть нулевое значение.
Подскажите где ошибка и как исправить.

[ART]

http://www.excode.ru/art5771p1.html

[PhoeniX]

Прости, а как думаешь, какой размер у типа String?
И вообще, как-то у тебя всё не по уму сделано...

[Kingcss]

в каком месте? у name не больше 20 символов, а у path немного побольше

[PhoeniX]

Давай подумаем вместе:

Код:

type  
  FM= packed record  
    name:string;  // ???
    size:integer;  // 4 байта
    folder:boolean;  // 1 байт
  end; 
var  
  fail:array[0..50] of FM; // 51 * (4+1+???) = ???
     ...
  sizeof(fail); // ???

sizeof не будет работать на динамических строках. Объяви размер строки (string[20] например), и будет получше.
А вообще подобные операции делаются иначе. Передаётся всё вручную - больше кода, зато работает без проблем.

[Kingcss]

помоги еще плиз, пытаюсь найти файлы по атрибуту, ставлю, что если атрибут=фадиректори то пишет место размера "Папка", иначе пишет размер, проверяю корень диска C , Папку windows и остальные папки созданные мной отображаются как папка, а папки Recycle.bin , Document and settings , program files, users, Sistem Volume Information пишет размер 0, почему они не отображаются как папки, мне нужно сделать так чтобы у всех папок отображалось "Папка", а у файлов их размер, далее лежит в корне диска утановочный файл гуглхрома, его размер отображается нормально и правильно, рядом файл pagefile.sys, hiberfil.sys их размер отрицателен. почему так? Вот провожу код:

PHP код:

p:=0;
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
repeat
begin
   fail[p].name:=sr.Name;
   if sr.Attr=faDirectory then
   fail[p].size:='Папка' else fail[p].size:=inttostr(sr.Size);
     List:=ListView1.Items.Add;
     List.Caption:=fail[p].name;
     List.SubItems.Add(fail[p].size); 
     Inc(p);
     end;
    until FindNext(SR) <> 0; 
FindClose(SR);
result:=p; 


[PhoeniX]

Нельзя так аттрибуты сравнивать.

Код:

if (sr.Attr and faDirectory) = faDirectory then 

[Kingcss]

Все получилось, респект тебе, помогал здоровски, получил много опыта работы с сокетами, ток последний вопросик:
Вот моя структура:

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 файлов, как решить эту проблему, т.к. вроде когда обьявляешь большое значение, оперативку лишнюю жрет.

Блин сделал все, кроме динамических массивов, все ок работает, лазить можно, но в папке

[Kingcss]

Все получилось, респект тебе, помогал здоровски, получил много опыта работы с сокетами, ток последний вопросик:
Вот моя структура:

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 файлов, как решить эту проблему, т.к. вроде когда обьявляешь большое значение, оперативку лишнюю жрет.

Блин сделал все, кроме динамических массивов, все ок работает, лазить можно, но в папке document and settings не находит не одного файла, также в других скрытых папках, подскажи как получить файлы в них, ну или можно как то сделать чтоб он не выводил эти скрытые папки, а то напрягают малясь) а захожу в папку windows вообще ошибка.

Кстати почему то если увеличить размер массива со структурой FM с 50 до 100 то при заходе в любую папку выдает ошибку "."

[PhoeniX]

1. Что есть ошибка 10053? (текст)
2. SetLength надо передать только количество элементов, размер записи передавать не надо!
3. Массив файлов тоже сделай динамическим. Тогда сначала передаём количество записей, потом сам массив. Принимаем в таком же порядке - 4 байта длины, и массив данных.

Вообще, я сейчас занимаюсь подобной программой. Если хочешь - стукни в аську (в подписи), скину то, что есть, посмотришь интересные куски. Только умоляю, не надо целиком копировать код - во-первых, это нехорошо (выдавать чужое за своё), а во-вторых, ни фига не разберёшься

[Kingcss]

Да я не копипастер уж поверь) поэтому и маюсь сам, пытаюсь допереть до всего, ну а уж если в тупике то приходиться спрашивать совета у более опытных товарищей)