[ujanin]

Привет! Я новичок в программировании. Хочу написать свой фтп многопоточный заливщик через соксы 4/5. Подскажите с какими функциями надо разобраться и какая литература больше подходит для решения этой задачи? И если есть примеры!!

[ujanin]

У кого достаточно опыта в этом деле или хоть есть какие нить решения задачи буду рад вашей помощи!

1. загрузил в поле мемо1 из файла, список соксов вида ип:порт
2. загрузил в поле мемо2 из файла, список заданий вида фтп,логин,пароль,папка на компе с файлами, папка на фтп куда заливать
3. 2а edit поля. В одном кол-во заданий в другом количество потоков для задания.

Вопрос как мне сделать, что бы по нажатию на батон программа брала первый сокс и задание и пыталась залить фаил. Как то так.

Какие идеи?

[NumLock]

Сообщение от ujanin

Какие идеи?

через TIdFTP не понравилось?

[ujanin]

Сообщение от NumLock

через TIdFTP не понравилось?

Можно примеры? сейчас пытаюсь разобраться как реализовать через indy

[ujanin]

Разобрался как передать фаил с помощью indy. А как передать всю папку со всеми файлами каталогами и подкаталогами?

[NumLock]

ну так:
procedure MakeDir(const ADirName: string);
сканируешь локальную папку, создаешь удаленные папки и копируешь в них файлы, рекурсивно.

[ujanin]

Сообщение от NumLock

ну так:
procedure MakeDir(const ADirName: string);
сканируешь локальную папку, создаешь удаленные папки и копируешь в них файлы, рекурсивно.

Вот нашел почти готовое решение.

PHP код:

procedure ScanDir(StartDir: string; Mask: string; List: TStrings);
var
  SearchRec: TSearchRec;
begin
  if Mask = '' then
    Mask := '*.*';
  if StartDir[Length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
  if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then
  begin
    repeat Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> faDirectory then
        List.Add(StartDir + SearchRec.Name)
      else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')thenbegin
        List.Add(StartDir + SearchRec.Name + '\');
      ScanDir(StartDir + SearchRec.Name + '\', Mask, List);
  end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

Пример вызова, параметры 1. имя папки 2. маска, по умолчанию *.* 3. хранилище для резульатат, любой наследник от TString, например TStringList

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
  ScanDir('c:', '', ListBox1.Items);
  Label1.Caption := IntToStr(ListBox1.Items.Count);
end; 


Источник: http://www.delphisources.ru/pages/fa...r_subdirs.html

Т.е. я получил список файлов в папке, подпапке. Теперь надо как-то передать все это, так что бы подпапки создавались на фтп и заливались файлы туда. Только что читал про рекурсию, разбираюсь.

Но заглядывая вперед, как мне можно хранить список файлов для многозадачной передачи? Изначально же не известно сколько необходимо выполнять задач. Я веду к тому что в примере файлы выводятся в ListBox. А в много задачной нужно будет и 100 одновременно сканировать папок и получать список. А потом отдавать их на передачу по фтп. Тогда необходимо создавать фаил со список путей файлов? И сколько задач столько и файлов и уже из файлов тягать пути и отдавать на передачу или есть более толковый способ?

[ujanin]

Подскажите как записать в фаил все строки вместо listbox

PHP код:

procedure TForm1.Button2Click(Sender: TObject);
var
f: TextFile;
i: integer;
begin
  AssignFile(f, 'd:\Test.txt');
  ReWrite(f);
  ListBox1.Items.Clear;
  ScanDir('c:', '', что тут указать что бы записать в фаил?);
  Label1.Caption := IntToStr(ListBox1.Items.Count);
  CloseFile(f);
end; 


Процедура ScanDir написана так что, хранилище для резульатат, любой наследник от TString. Как мне необходимо ее переделать, что бы хранилище можно было использовать фаил?

[ujanin]

У меня есть строка: 1,2,3,4,5 как мне из нее взять 5? Не пойму как взять с помощью функции copy, если номер первого символа с которого начинается нужная подстрока перед этим повторяется не раз, а именно ",". Но я знаю точно, что после 4й запятой нужная подстрока.

[ujanin]

удалено 10 символов

[lmikle]

Сообщение от ujanin

У меня есть строка: 1,2,3,4,5 как мне из нее взять 5? Не пойму как взять с помощью функции copy, если номер первого символа с которого начинается нужная подстрока перед этим повторяется не раз, а именно ",". Но я знаю точно, что после 4й запятой нужная подстрока.

PosEx не пробовал?

А вообще, не "простая" ли задачка для начинающего.
И вообще, не с той стороны подходишь к задаче.

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

Короче, знаний для нормального решения такой задачи тебе все-равно сейчас не хватает. Садись разбирайся с пулами потоков или с очередями.

[GriLab]

Может это тебе поможет:

Код:

function ParseStr(S, SubStr: String; Index: Integer): String;
var
  i: Integer;
  BlockStr: String;
begin
  if (S = '') or (SubStr = '') then Exit;
  if Length(S) < Length(SubStr) then Exit;
  if Copy(S, Length(S) - Length(SubStr), Length(SubStr)) <> SubStr then
    S := S + SubStr;
  for i := 1 to Index do
  begin
    BlockStr := Copy(S, 0, Pos(SubStr, S) - 1);
    S := Copy(S, Pos(SubStr, S) + Length(SubStr), Length(S));
  end;
  Result := Trim(BlockStr);
end;

[ujanin]

Сообщение от lmikle

PosEx не пробовал?

Я решил задачу с разделением строки вот так

PHP код:

ftpi:=copy(stroka,1,pos(';',stroka)-1);
    delete(stroka,1,pos(';',stroka));
    login:=copy(stroka,1,pos(';',stroka)-1);
    delete(stroka,1,pos(';',stroka));
    parol:=copy(stroka,1,pos(';',stroka)-1);
    delete(stroka,1,pos(';',stroka));
    PapkaNSK:=copy(stroka,1,pos(';',stroka)-1);
    delete(stroka,1,pos(';',stroka)); 


Мб можно покомпактней сделать, если приведете пример буду благодарен.

Сообщение от lmikle

А вообще, не "простая" ли задачка для начинающего.

Понимаю, что не простая. Но необходима такая программа + всегда хотел научиться программировать.

Сообщение от lmikle

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

Ну чтоб такого не было я хочу реализовать многозадачность+многопоточность! Что будет ограничивать только ресурсы компа\сервера и количество носков.

Сообщение от lmikle

Короче, знаний для нормального решения такой задачи тебе все-равно сейчас не хватает. Садись разбирайся с пулами потоков или с очередями.

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

[ujanin]

Сообщение от GriLab

Может это тебе поможет:

Код:

function ParseStr(S, SubStr: String; Index: Integer): String;
var
  i: Integer;
  BlockStr: String;
begin
  if (S = '') or (SubStr = '') then Exit;
  if Length(S) < Length(SubStr) then Exit;
  if Copy(S, Length(S) - Length(SubStr), Length(SubStr)) <> SubStr then
    S := S + SubStr;
  for i := 1 to Index do
  begin
    BlockStr := Copy(S, 0, Pos(SubStr, S) - 1);
    S := Copy(S, Pos(SubStr, S) + Length(SubStr), Length(S));
  end;
  Result := Trim(BlockStr);
end;

Спасибо конечно. Но можно добавить комментарии?

[angvelem]

Ну уж если к такому коду комментарии писать, то однозначно - за учебники.