Помогите написать программу

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by WyBie, 3 Mar 2010.

  1. WyBie

    WyBie New Member

    Joined:
    27 Feb 2010
    Messages:
    22
    Likes Received:
    1
    Reputations:
    0
    я только начал и вообще почти не в чем не разбераюсь. Так что не ругайтесь сильно
    Можете написать с обьяснение где что и как стоит и для чего нужно, вот в такой маленькой програмке.
    Просто оболочка програмы которая содержит
    Memo
    edit1 допустим Ваше имя
    edit2 фамилия
    кнопочку button1 котороя открывает фото openpicturedialog
    при нажатии на кнупку button2 данные edit1 переносится на первую строку Memo1
    edit2 на 2 строку Memo1
    после это программа коннектится на ftp host port login pass
    создает каталог Имя компа из которого послали+дата
    сохраняет даные Memo в txt а openpicturedialog в той же папке (желательно добавить перекодировку например открыт был фаил bmp 1024x768 а сох в jpg 640x480)
    присутствует докачка
    очень прошу обьясните каждую строчку что она означает и какие компоненты надо грузить а то много исходников видел так и не разобрался а пытался вставить код выдавало ошибки. Буду очень благодарен.
     
  2. WyBie

    WyBie New Member

    Joined:
    27 Feb 2010
    Messages:
    22
    Likes Received:
    1
    Reputations:
    0
    Code:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ExtDlgs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        Memo1: TMemo;
        Edit1: TEdit;
        Edit2: TEdit;
        OpenPictureDialog1: TOpenPictureDialog;
        Button3: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
    myname:TCaption;
    myfam:TCaption;
    begin
     myname:=form1.Edit1.text;
     myfam:=form1.Edit2.Text;
     form1.Memo1.Text:=myname+' '+myfam; //сделать на разных строчках edit1 на 1 edit2 на 2
    end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    begin
    form1.OpenPictureDialog1.Execute;
    end;
    
    procedure TForm1.Button3Click(Sender: TObject);
    begin
    // программа коннектится на ftp host port login pass 
    создает каталог Имя компа из которого послали+дата
    сохраняет даные Memo в txt а openpicturedialog в той же папке (желательно добавить перекодировку например открыт был фаил bmp 1024x768 а сох в jpg 640x480)
    присутствует докачка
    end;
    
    end.
    
     
    #2 WyBie, 3 Mar 2010
    Last edited by a moderator: 4 Mar 2010
  3. Pr0mo

    Pr0mo Member

    Joined:
    26 Nov 2009
    Messages:
    29
    Likes Received:
    31
    Reputations:
    4
    Советую исправить хотя бы так, а то претендует на говнокод..

    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    var
    myname:String;
    myfam:String;
    begin
     myname:=Edit1.text;
     myfam:=Edit2.Text;
     Memo1.Lines.Add(myname);
     with Memo1.Lines do
      begin
        Add(myname);
        Add(myfam);
      end;
    end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    begin
    OpenPictureDialog1.Execute;
    end;
    
    procedure TForm1.Button3Click(Sender: TObject);
    begin
    // программа коннектится на ftp host port login pass 
    создает каталог Имя компа из которого послали+дата
    сохраняет даные Memo в txt а openpicturedialog в той же папке (желательно добавить перекодировку например открыт был фаил bmp 1024x768 а сох в jpg 640x480)
    присутствует докачка
    end;
    
    end.
    
     
  4. sanya111

    sanya111 Member

    Joined:
    17 May 2009
    Messages:
    0
    Likes Received:
    93
    Reputations:
    2
    Можно немного проще сделать

     
  5. WyBie

    WyBie New Member

    Joined:
    27 Feb 2010
    Messages:
    22
    Likes Received:
    1
    Reputations:
    0
    спасибо теперь понятно
    каким образом можно узнать строку и именно туда вставить???
    а самое главное как теперь на ftp послать?
     
  6. dvion

    dvion New Member

    Joined:
    11 Mar 2009
    Messages:
    12
    Likes Received:
    2
    Reputations:
    0
    А не троянчик-ли пишется? А то видал такой)
     
  7. WyBie

    WyBie New Member

    Joined:
    27 Feb 2010
    Messages:
    22
    Likes Received:
    1
    Reputations:
    0
    не совсем так сказать анкету
    надо создать программу анкету для школы
    над чтобы данные на ftp и на мэил посылались
    а ято знаешь как сделать?
     
  8. dvion

    dvion New Member

    Joined:
    11 Mar 2009
    Messages:
    12
    Likes Received:
    2
    Reputations:
    0
    WyBie,
    Заюзай очень простой вариант - Indy. Как раз для начинающих :)
    Примеров реализации - уйма ;)
     
  9. sanya111

    sanya111 Member

    Joined:
    17 May 2009
    Messages:
    0
    Likes Received:
    93
    Reputations:
    2
    Для того что бы на мейл посылались данный, кидаешь компоненты IdAntiFreeze, IdMessage и IdSMTP.
    Пример для mail.ru почты. Вот прописываешь:

     
  10. fenixelite

    fenixelite Banned

    Joined:
    7 Feb 2010
    Messages:
    294
    Likes Received:
    56
    Reputations:
    6
    Ну и для Фтп все тоже в Инди есть. Юзай idFTP.
     
  11. WyBie

    WyBie New Member

    Joined:
    27 Feb 2010
    Messages:
    22
    Likes Received:
    1
    Reputations:
    0
    спасиб
     
  12. WyBie

    WyBie New Member

    Joined:
    27 Feb 2010
    Messages:
    22
    Likes Received:
    1
    Reputations:
    0
    пробовал вставить и конектиться ничего не получается выдает разные ошибки.
    отправи рабочий исходник.
    Может что еще не включил
    кстати а зачем антифриз?
     
  13. sanya111

    sanya111 Member

    Joined:
    17 May 2009
    Messages:
    0
    Likes Received:
    93
    Reputations:
    2
    Для того что бы форма не зависала!

    Только мыло своё укажи. Логин и пароль к мылу с которого будет отправлятся и на какое мыло будет отправлятся.
     
  14. WyBie

    WyBie New Member

    Joined:
    27 Feb 2010
    Messages:
    22
    Likes Received:
    1
    Reputations:
    0
    пишет такую ошибку
    Project Prohect1.exe raised exception class EldProtocolReplyError with message "Administrative prohibition -- authorization required. Users in your domain are not allowed to send email without autorization. See http://www.mail.ru/pages/help/261.html for details.
    '.Process stopped. Use Step or Run to continue.
     
  15. sanya111

    sanya111 Member

    Joined:
    17 May 2009
    Messages:
    0
    Likes Received:
    93
    Reputations:
    2
    Значит что то не правильно прописываешь, ты мыло с которого отправляется сообщения почты mail.ru вводил?
     
    #15 sanya111, 7 Mar 2010
    Last edited: 7 Mar 2010
  16. WyBie

    WyBie New Member

    Joined:
    27 Feb 2010
    Messages:
    22
    Likes Received:
    1
    Reputations:
    0
    так и так пробовал
    скинь плиз исходник на почту alonermike@mail.ru
     
  17. sanya111

    sanya111 Member

    Joined:
    17 May 2009
    Messages:
    0
    Likes Received:
    93
    Reputations:
    2
    Стукни в асю 767-769
     
  18. WyBie

    WyBie New Member

    Joined:
    27 Feb 2010
    Messages:
    22
    Likes Received:
    1
    Reputations:
    0
    почти все готова но как быть с этим
    // программа коннектится на ftp host port login pass
    создает каталог Имя компа из которого послали+дата
    сохраняет даные Memo в txt а openpicturedialog в той же папке (желательно добавить перекодировку например открыт был фаил bmp 1024x768 а сох в jpg 640x480)
    присутствует докачка
     
Loading...
Similar Threads - Помогите написать программу
  1. Peja
    Replies:
    0
    Views:
    2,659