post запросы на php скрипт

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by GAiN, 25 Aug 2013.

  1. GAiN

    GAiN Elder - Старейшина

    Joined:
    2 Apr 2011
    Messages:
    2,550
    Likes Received:
    172
    Reputations:
    99
    сделал я скрипт отправки email на php для себя, нужно ему приложение сделать которое будет post запросы слать на определённый url, он динамический поэто му его прописывать нужно в конфиге
    вид запросов из html формы
    PHP:
    <input type="text" name="mail_name1">
    <
    select name="name2">
    <
    input type="file" name="mail_file1">
    <
    input type="textarea" name="messager">
    name="mail_name1" тоже может меняться, всё это тоже лучше не железное делать.

    я ни на одном языке c ++ или делфи, не программировал, на чём лучше начать делать это ?
    программку нужно портабельную делать, что бы работала с флешки, и возможно даже под мак ос линукс и виндовс.
    что лучше поставить, где проще всё реализовать для новичка ?

    программа для упрощения думаю должна так выглядеть, сама форма отправки, там поля:
    кому
    тема
    сообщение
    вложение


    проверка на правильный ввод email и на пустоту (скрипт php всё это делает и не пошлёт сообщение если не верно, но нужно и программа что бы тоже могла запрещать отправлять если не заполнено или не верно заполнено)

    все параметры конфигураций хранить в файле ini, для возможности редактирования
     
  2. BlackIce

    BlackIce Elder - Старейшина

    Joined:
    10 Jan 2013
    Messages:
    100
    Likes Received:
    31
    Reputations:
    27
    Дельфячий код, писал на коленке, но должно работать:
    PHP:
    function SendData(LinksMail,sName2sFilesMessage String) : boolean;
    var 
    HTTP TidHTTP;
        
    tsData TStringList;
    begin
        Result 
    := False;
        try
            try
                
    HTTP := TidHTTP.Create(nil);
                
    tsData := TStringList.Create;
                
    tsData.Add('mail_name1=' sMail);
                
    tsData.Add('name2=' sName2);
                
    tsData.Add('mail_file1=' sFile);
                
    tsData.Add('messager=' sMessage);
                
    HTTP.Post(LinktsData);
                
    Result := True;
            
    except on E:Exception do
                
    Result := False;
            
    end;
        finally
            
    FreeAndNil(HTTP);
            
    FreeAndNil(tsData);
        
    end;    
    end;
     
    1 person likes this.