Advertisement
svxvcer

Untitled

Jan 20th, 2024 (edited)
1,224
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 2.46 KB | None | 0 0
  1. DELPHI=============================================================================================================
  2. procedure TForm1.PostButClick(Sender: TObject);
  3. var dataPost:TIdMultiPartFormDataStream;
  4.  
  5. begin
  6.    dataPost:=TIdMultiPartFormDataStream.Create;
  7.  
  8.  
  9.    dataPost.AddFormField('title',title.Text,'utf-8').ContentTransfer := '8bit';
  10.    dataPost.AddFormField('content',content.Text,'utf-8').ContentTransfer := '8bit';
  11.  
  12.    dataPost.AddFile('file',imgfile.Text,''); //добавляем поле с файлом
  13.  
  14.  
  15.     response.Text:= StringReplace(idHTTP1.Post('http://ddddd.ru/get/get.php',dataPost),'<br>',#13#10,[rfReplaceAll]);
  16.  
  17.     datapost.Free;
  18. end;
  19.  
  20. PHP=============================================================================================================
  21. <?php
  22. //Задаем заголовок ответа
  23. header("Content-Type: text/html; charset=utf-8");
  24.  
  25. //Проверяем в поступивших данных наличие данных поля "title"
  26. if (!empty($_POST['title'])){
  27.     echo 'Заголовок: '.$_POST['title'].'<br>';
  28. } else {
  29.     echo 'Заголовок: Отсутствует'.'<br>';
  30. }
  31.  
  32. //Проверяем в поступивших данных наличие данных поля "content"
  33. if (!empty($_POST['content'])){
  34.     echo 'Содержимое: '.$_POST['content'].'<br>';
  35. } else {
  36.     echo 'Содержимое: Отсутствует'.'<br>';
  37. }
  38.  
  39. //Проверяем в поступивших данных наличие прикрепленного файла "file"
  40. if (!empty($_FILES['file'])) {
  41.  
  42.  $finfo = pathinfo($_FILES['file']['name']); //получаем инфо о файле (имя, расширение и т.д.)
  43.  
  44.   //Проверяем тип файла в списке допустимых типов( ИМПРОВИЗАЦИЯ :) )
  45.   if (stripos('jpgpnggif',$finfo['extension'])==0){
  46.    echo '>>>>>>>Недопустимый тип файла<<<<<<<<';
  47.    exit;  //Если не допустим тип, полностью останавливаем скрипт
  48.   }
  49.    
  50.    
  51.    $fname = 'get/' . 'testimgfile.' . $finfo['extension']; //формируем путь и новое имя файла
  52.    move_uploaded_file($_FILES['file']['tmp_name'],$fname);//сохраняем временный файл 'tmp_name' в файл $fname
  53.    echo 'https://'.$_SERVER['HTTP_HOST'].'/'.$fname; //возвращаем полный путь к файлу
  54.    
  55. }
  56.  
  57. ?>
  58.  
  59.  
  60.  
  61.  
  62.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement