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

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

 

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.

 

Советую исправить хотя бы так, а то претендует на говнокод..

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.

 

Можно немного проще сделать

 

спасибо теперь понятно
каким образом можно узнать строку и именно туда вставить???
а самое главное как теперь на ftp послать?

 

А не троянчик-ли пишется? А то видал такой)

 

не совсем так сказать анкету
надо создать программу анкету для школы
над чтобы данные на ftp и на мэил посылались
а ято знаешь как сделать?

 

WyBie,
Заюзай очень простой вариант - Indy. Как раз для начинающих
Примеров реализации - уйма

 

Для того что бы на мейл посылались данный, кидаешь компоненты IdAntiFreeze, IdMessage и IdSMTP.
Пример для mail.ru почты. Вот прописываешь:

 

Ну и для Фтп все тоже в Инди есть. Юзай idFTP.

 

спасиб

 

пробовал вставить и конектиться ничего не получается выдает разные ошибки.
отправи рабочий исходник.
Может что еще не включил
кстати а зачем антифриз?

 

Для того что бы форма не зависала!

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

 

пишет такую ошибку
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.

 

Значит что то не правильно прописываешь, ты мыло с которого отправляется сообщения почты mail.ru вводил?

 

так и так пробовал
скинь плиз исходник на почту [email protected]

 

Стукни в асю 767-769

 

почти все готова но как быть с этим
// программа коннектится на ftp host port login pass
создает каталог Имя компа из которого послали+дата
сохраняет даные Memo в txt а openpicturedialog в той же папке (желательно добавить перекодировку например открыт был фаил bmp 1024x768 а сох в jpg 640x480)
присутствует докачка