Копирование файла по локальной сети

@knoxx · Регистрация: 29.06.2010

Author24 — интернет-сервис помощи студентам

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

чтобы при нажатии на copy программа пропускала пустые значения в edit, а так копирование происходит и соотв выдает ошибку такое количество раз сколько осталось пустых edit.
И еще как можно сделать чтобы при exit введенные значения в edit запоминались и оставались при след запуске программы

Delphi

unit copy;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellApi, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Button3: TButton;
    Button4: TButton;
    dir: TEdit;
 
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
var OpenDialog : TOpenDialog;
 
begin OpenDialog := TOpenDialog.Create(Self);
 
{опции...}
 
if OpenDialog1.Execute then
label1.Caption := OpenDialog1.FileName;
end;
 
function WindowsCopyFile(FromFile, ToDir : string) : boolean;
var F : TShFileOpStruct;
begin
  F.Wnd := 0; F.wFunc := FO_COPY;
  FromFile:=FromFile+#0; F.pFrom:=pchar(FromFile);
  ToDir:=ToDir+#0; F.pTo:=pchar(ToDir);
  F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
  result:=ShFileOperation(F) = 0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
begin
{------------------------}
      WindowsCopyFile(OpenDialog1.FileName, '\\' + edit1.text + dir.Text);
      WindowsCopyFile(OpenDialog1.FileName, '\\' + edit2.text + dir.Text);
      WindowsCopyFile(OpenDialog1.FileName, '\\' + edit3.text + dir.Text);
      WindowsCopyFile(OpenDialog1.FileName, '\\' + edit4.text + dir.Text);
      WindowsCopyFile(OpenDialog1.FileName, '\\' + edit5.text + dir.Text);
      WindowsCopyFile(OpenDialog1.FileName, '\\' + edit6.text + dir.Text);
      WindowsCopyFile(OpenDialog1.FileName, '\\' + edit7.text + dir.Text);
      WindowsCopyFile(OpenDialog1.FileName, '\\' + edit8.text + dir.Text);
      WindowsCopyFile(OpenDialog1.FileName, '\\' + edit9.text + dir.Text);
      WindowsCopyFile(OpenDialog1.FileName, '\\' + edit10.text + dir.Text);
      WindowsCopyFile(OpenDialog1.FileName, '\\' + edit11.text + dir.Text);
      WindowsCopyFile(OpenDialog1.FileName, '\\' + edit12.text + dir.Text);
      WindowsCopyFile(OpenDialog1.FileName, '\\' + edit13.text + dir.Text);
      WindowsCopyFile(OpenDialog1.FileName, '\\' + edit14.text + dir.Text);
      WindowsCopyFile(OpenDialog1.FileName, '\\' + edit15.text + dir.Text);
{------------------------}      
      
 
end;
 
 
procedure TForm1.Button3Click(Sender: TObject);
begin
 edit1.Text:='';
 edit2.Text:='';
 edit3.Text:='';
 edit4.Text:='';
 edit5.Text:='';
 edit6.Text:='';
 edit7.Text:='';
 edit8.Text:='';
 edit9.Text:='';
 edit10.Text:='';
 edit11.Text:='';
 edit12.Text:='';
 edit13.Text:='';
 edit14.Text:='';
 edit15.Text:='';
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;
 
end.

@Xaker · 01.07.2010, 08:14

Для сохранения настроек можно использовать IniFile, а для пустых Edit

Delphi

1 2	IF edit1.Text<>'' then //нужное действие

@knoxx · 01.07.2010, 17:24 **[ТС]**

Сообщение от Xaker

Для сохранения настроек можно использовать IniFile, а для пустых Edit

Delphi

1 2	IF edit1.Text<>'' then //нужное действие

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

Delphi

if edit1.Text<>'' then
WindowsCopyFile(OpenDialog1.FileName, '\\' + edit1.text + dir.Text)
else
if edit2.Text<>'' then
WindowsCopyFile(OpenDialog1.FileName, '\\' + edit2.text + dir.Text)

тогда файл копируется только на первый вбитый в edit адрес, условие на этом останавливается...

наверное надо как-нибудь по другому?

Добавлено через 35 минут
разобрался, нужно без else.
Спасибо за ответ

теперь буду мучить inifile

@knoxx · 12.07.2010, 18:14 **[ТС]**

В продолжении темы..

при условии, если копирование проходит, то label принимает текст OK, а как сделать, чтобы label принимал значение false, если возникает ошибка при копировании (если адрес уже неактивный) ??

@knoxx 0 / 0 / 0 Регистрация: 29.06.2010 Сообщений: 3
	12.07.2010, 18:14 [ТС]	4
	В продолжении темы.. при условии, если копирование проходит, то label принимает текст OK, а как сделать, чтобы label принимал значение false, если возникает ошибка при копировании (если адрес уже неактивный) ?? 0

Опции темы