Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 28 января!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

АРХИВ ФОРУМА eXeL@B
https://exelab.ru/f/

   

Dred вопрос по Делфе Люди добрые поскажите где грабли зарыты:


Dred вопрос по Делфе Люди добрые поскажите где грабли зарыты:
var
Form1: TForm1;
Ffname: string;
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Ffname:= OpenDialog1.Filename;
CopyFile (Ffname, ’me’, false);
end;

end.
Вообщем хочу скопировать файл в дирректорию программы, выбрав его из ОпенДиалога.
Мне кажется чото со String’ом ...

fuck it :: конечно... что такое ’me’ епт... тебе надо вместо этого ми
ExtractFilePath(paramstr(0))+ExtractFileName(Ffnam e)

Dred :: me это имя будушего файла

ZX :: var
p: PChar;
begin
if OpenDialog1.Execute then
Ffname:= OpenDialog1.Filename;
p := @Ffname[1];
CopyFile(p,’C:\myfile.qqq’, false);
end;

И вообще как этот вопрос относится к теме форума, потрудись объяснить.

Dred :: Вообщем вот как это выглядит
CopyFile (’имя с полным путем’, ’имя’, заменить или нет);

Dred :: 2 ZX
вообщем тренируюся в написании программ(ы), а у кого спосить то кроме ВАС ЛУЧШИХ ИЗ ЛУЧШИХ в своём роде...

СОРРИ, ЕСЛИ ЧО НЕ ТАК, извиняюся конечно за офффтоп

fuck it :: Dred
вааще я не понял чё ты хочешь ???

MozgC [TSRh] :: var
Form1: TForm1;
Ffname : String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Ffname:= OpenDialog1.Filename;
CopyFile (PChar(Ffname), ’me’, false);
end;

Если непонятно =))) могу объяснить...

ZX :: MozgC [TSRh]

Ну давай тогда пойдем до конца:

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
CopyFile (PChar(OpenDialog1.Filename), ’me’, false);
end;

fuck it :: MozgC [TSRh]
ну объясни что он хочет... ты привел его код... и что ?

EGOiST[TSRh] :: там просто надо было юзать PChar а не String, на скока я понял..

fuck it :: EGOiST[TSRh]
так чё он так бы и написал что некопируеться... а хер его знает чё ему надо :)

Dred :: 2 fuck it
Вообщем хочу скопировать файл в дирректорию программы, выбрав его из ОпенДиалога.
Некомпилилось...
2 MozgC [TSRh] некомпилиться

Вот так компилится но почемуто файл копируется НЕ в дирректорию программы...
var
Form1: TForm1;
Ffname: string;

procedure TForm1.Button1Click(Sender: TObject);
var
p: PChar;
begin
if OpenDialog1.Execute then
begin
Ffname:= OpenDialog1.Filename;
p := @Ffname[1];
if not CopyFile(p,’MyName’, false) then showmessage(’нескопировалося’) ;
end;
end;

end.

Понимаю что всех уже достал - биг сорри.....но мне бы надо чтобы файл копировался в дирректорию с программой...

fuck it :: что бы скопировалось в директорию программы смотри мой первый ответ + в копифайл стринг лучше как Pchar(string)

Dred :: 2 fuck it
Ты бы не мог поподробнее
Всмысле с кодом проги его написать
я так понимаю его надо вместо копифайла вставить
Если не трудно конечно..

ZX :: Dred
procedure TForm1.Button1Click(Sender: TObject);
begin
iif OpenDialog1.Execute then
CopyFile (PChar(OpenDialog1.Filename), PChar(ExtractFilePath(paramstr(0)) + ’nado.polzovatsa.spravkoy.po.delphi.nafig’), false);end;

Gloomy :: if OpenDialog1.Execute then
CopyFile(
pChar(OpenDialog1.FileName),
pChar(ExtractFilePath(Application.ExeName) + ExtractFileName(OpenDialog1.FileName)),
False);

Dred :: 2 Gloomy

СПАСИБКИ ПОДУ КОМПИЛИТЬ

MozgC [TSRh] :: Dred пишет:
цитата:
2MozgC [TSRh] некомпилиться


Ты че издеваешься ? Я из дельфи скопировал. Ты хоть ковычки то изменил на прямые ?

[ChG]EliTe :: Гы... С ума сойти... 2 страницы.... форума из за 4 строчек паскалевского кода....

Сорри.. не сдержался...

Dred :: зато мене помогли разобраться где грабли зарыты

[ChG]EliTe :: Dred пишет:
цитата:
зато мене помогли разобраться где грабли зарыты


Помоему их ни кто не зарывал... ну в крайнем случае положил В ТО МЕсте рядом с hlp файлами куда кто то не заглядывает...

ZX :: [ChG]EliTe пишет:
цитата:
ну в крайнем случае положил


Действительно, это яный случай такого цикла:

while not StartReadHelp do
WriteLn(’Новая шишка!’);

А на зарытые грабли как известно не наступишь.

Dred :: ...лучше один раз увидеть чем сто раз услышать...
Вот и здесь так же...
в хелпе пока найдешь чо надо, а тут СПЕЦИАЛИСТЫ сразу обнаружили грабли...

ZX :: Dred пишет:
цитата:
в хелпе пока найдешь чо надо


В этом и заключается программирование, когда не знаешь как, надо уметь найти как это сделать, тут и поиск в хелпе, и исследование и провидение(ударение на «ви») и 6-е чувство и еще чтение и изучение всего, что хоть както ссылается на проблемму. А если ты на этом этапе пытаешься задавать вопросы, то потом так и будешь их задавать на форумах. А надо УЧИТСЯ задавать вопросы СЕБЕ , и учится на них отвечать - ТОЛЬКО ТЫ САМ СМОЖЕШЬ ПРАВИЛЬНО ОТВЕТИТЬ НА СВОЙ ВОПРОС .

ViNCE [AHT] :: Dred пишет:
цитата:
Люди добрые поскажите где грабли зарыты:
var
Form1: TForm1;
Ffname: string;
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Ffname:= OpenDialog1.Filename;
CopyFile (Ffname, ’me’, false);
end;

end.
Вообщем хочу скопировать файл в дирректорию программы, выбрав его из ОпенДиалога.
Мне кажется чото со String’ом ...


Я бы сделал так...

var
Form1: TForm1;
Ffname: string;
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Ffname:= OpenDialog1.Filename;
CopyFile (Ffname,PChar(ExtractFileDir(Application.ExeName)+ ’\’+ExtractFileName(Ffname)), false);
end;
Если нужно другое имя, меняй «ExtractFileName(Ffname)» на «example.exe» и т.п.

SLV :: ViNCE [AHT]
ViNCE [AHT] пишет:
цитата:
ExtractFileDir


- такого нет, есть ExtractFileDirectory.

P.S. if OpenDialog.execute then BEGIN //!!!
...
...
end; //if
end; // procedure

.::D.e.M.o.N.i.X::. :: SLV
Странно, наверное в borland ошиблись написав в справочнике это:

ExtractFileDir
Extracts the drive and directory parts from FileName.
Unit
Sysutils
Category
file name utilities
function ExtractFileDir(const FileName: string): string;
Description
The resulting string is a directory name suitable for passing to the CreateDir, GetCurrentDir, RemoveDir, and SetCurrentDir functions. This string is empty if FileName contains no drive and directory parts.
Note: This function works for multi-byte character systems (MBCS).

P.S. Прежде чем замечания давать сам посмотри на свои ошибки, спец...

SLV :: function ExtractFileDir(const FileName: string): string;, точно... Простите. Дело в том, что у меня есть модуль, в котором написаны функции и процедуры, необходимые для обхода ограничений файловых систем. (Например кому слабо создать папку с именем ... в корне диска С???). Так вот, в том модуле она немного изменена и по-другому зовется (ExtractFileDirectory)...

ViNCE [AHT] :: .::D.e.M.o.N.i.X::. пишет:
цитата:
SLV
Странно, наверное в borland ошиблись написав в справочнике это:

ExtractFileDir
Extracts the drive and directory parts from FileName.
Unit
Sysutils
Category
file name utilities
function ExtractFileDir(const FileName: string): string;
Description
The resulting string is a directory name suitable for passing to the CreateDir, GetCurrentDir, RemoveDir, and SetCurrentDir functions. This string is empty if FileName contains no drive and directory parts.
Note: This function works for multi-byte character systems (MBCS).

P.S. Прежде чем замечания давать сам посмотри на свои ошибки, спец...


thanx for support!






   
Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS