Скачать: CL | DM;

Upload файлы по ХТТП протоколу   Найти похожие ветки 

← →
Saint_Byte   (2004-10-29 13:01) [0]

Прошу помощи, как мне это реализовать , может кто знает под это дело специальный компонент ?

Дайте хоть линку , линки найденые яндексом я читал (не дурак)!!!

да и заметьте какой у меня софт

---

← →
Reindeer Moss Eater ©   (2004-10-29 13:08) [1]

www.nevrona.com/indy

---

← →
Карелин Артем ©   (2004-10-29 13:58) [2]

Torry.net Гы-Гы

---

← →
hooch ©   (2004-10-29 14:05) [3]

я так качал

  // инициализация WinInet
  ShowStatus("Инициализация...");
  hInet := InternetOpen(PAnsiChar(Application.ExeName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if hInet <> nil then
    try
      // открытие сессии
      ShowStatus("Соединение...");
      hConnect := InternetConnect(hInet, PChar(Url), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
      if hConnect <> nil then
        try
          // открытие запроса
          hRequest := HttpOpenRequest(hConnect, PChar("POST"), PChar(ObjectName), nil, nil, nil, INTERNET_FLAG_KEEP_CONNECTION, 0);
          if hRequest <> nil then
            try
              ShowStatus("Отправка запроса...");
              if HttpSendRequest(hRequest, PChar(Header), Length(Header), PChar(Query), Length(Query)) then
                begin
                  dwIndex := 0;
                  dwBufferLen := 1024;
                  GetMem(Buffer, dwBufferLen);
                  try
                    // запрос размера файла
                    if HttpQueryInfo(hRequest, HTTP_QUERY_CONTENT_LENGTH, Buffer, dwBufferLen, dwIndex) then
                      begin
                        Size := StrToInt(StrPas(Buffer));

                        // чтение файла
                        ShowStatus("Загрузка данных...");
                        while true do
                          begin
                            if InternetReadFile(hRequest, @Data, SizeOf(Data), BytesToRead) and (BytesToRead > 0) then
                              AStream.Write(Data[0], BytesToRead)
                            else
                              Break;
                            ShowProgress(0, Size, AStream.Size);
                          end;

                        // проверка размера скаченого файла
                        if Size <> AStream.Size then
                          raise Exception.Create("Ошибочный размер файла")
                        else
                          ShowProgress(0, Size, AStream.Size);
                      end
                    else
                      raise Exception.Create("Ошибка получения размера файла")
                  finally
                    FreeMem(Buffer, dwBufferLen);
                  end;
                end
              else
                RaiseLastOSError;
            finally
              InternetCloseHandle(hRequest);
            end;
        finally
          InternetCloseHandle(hConnect);
        end
      else
        RaiseLastOSError;
    finally
      InternetCloseHandle(hInet);
    end
  else
    RaiseLastOSError;

---

← →
hooch ©   (2004-10-29 14:08) [4]

в Indy вроди заморочки есть с работой через прокси, пробовать не стал, сделал так

---

← →
Saint_Byte   (2004-10-29 19:45) [5]

Ключевое слово тут UPLOAD , тобишь загрузка на сервер !!!
На торри нет был  компанетов не нашел .

А вот инди оно вроде только под новые делфы . А  меня 3ая =(((

---

← →
Reindeer Moss Eater ©   (2004-10-31 14:12) [6]

И что?
*.pas файлы вдруг стали несовместимы с блокнотом или редактором IDE?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c