Filelistbox에 특정디렉토리의 화일들을 보여주고, 그 화일리스트를 하나의 스트링으로 만들어서 데이타를 보내주는 예제입니다. 그런데 화일리스트를 이용하지 않고, 이 기능을 구현하고 싶은데요.. 파일리스트의 속성? 을 상속해서 사용하면 될것같은데.
상속을 어떻게 하는지 잘모르겠습니다.
아래예제를 보시고 방법좀 가르쳐주시면 고맙겠습니다. 그럼 즐~~프하세요..
procedure FileListSend(fname:string);
var
F: File;
i: Integer;
stream:string;
totstream:string;
SourceHand:INTEGER;
begin
filelistBox1.Directory:=extractfilepath(fname);
for i := 0 to (FileListBox1.Items.Count - 1) do begin
try
     if not FileExists(FileListBox1.Items.Strings[i]) then begin
       MessageDlg('File: ' + FileListBox1.Items.Strings[i] +
                  ' not found', mtError, [mbOk], 0);
       Continue;
     end;
   AssignFile(F, FileListBox1.Items.Strings[i]);
   Downloadfile:=fileOpen(fileListBox1.Directory+'\'+chatform.FileListBox1.Items.Strings[i],fmOpenread  or fmShareDenyNone);
     if Downloadfile=-1 then exit;
         FileSeek(Downloadfile,0,0);
     FileListBox1.Directory+'\'+FileListBox1.Items.Strings[i]));
     stream:='#'+ filelistbox1.Items.Strings[i]+ '#',
     if i = filelistbox1.items.count - 1 then begin
           totstream:=totstream+stream+'#';
     end
     else
           totstream:=totstream+stream;
  finally
  { do something here }
CloseFile(F);
  end;

end;
  totstream:=copy(totstream,2,length(totstream));
   SendData(chatform.ServerSocket.Socket.Connections[0], totstream,mtDIRECTORY);
end;