| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с файлом [D7, WinXP]

Страницы:   < 1 2 3 >

wnix ©   (2008-05-13 18:47:00) 

У меня не получается создать файл в папке
Посмотрите
Этот код создает файл
 AssignFile(FInput,Inlink);
 AssignFile(FOutput, 'Crypt\'+edit1.Text);
А этот не саздает и пишет что файла не существует.

 AssignFile(f1,InLink);
 Reset(f1) ;
 AssignFile(f2,'UnCrypt\'+edit2.Text);
 rewrite(f2) ;

---

wnix   (2008-05-13 19:10:00) [41]

Palladin ©   (13.05.08 19:08) [11]
а зачем это

---

Palladin   (2008-05-13 19:09:00) [42]

фу блин, обшибся

ShowMessage(GetCurrentDir+'\UnCrypt');

---

Palladin   (2008-05-13 19:08:00) [43]

вот прямо так есть такая папка как

ShowMessage(GetCurrentDir+'UnCrypt\'+edit2.text);
?

---

wnix   (2008-05-13 19:08:00) [44]

я думал может дело в edit2
ну в edit1 просто записано 1.txt
а в edit2  зхаписано
E:\Programming\Company\Coder2\Coder1\Coder\Crypt\1.txt
может в этом проблема?

---

wnix   (2008-05-13 19:07:00) [45]

есть

---

Palladin   (2008-05-13 19:06:00) [46]

а папка Uncrypt есть?

---

wnix   (2008-05-13 19:05:00) [47]

и пишет ошибку  файл не найден

---

wnix   (2008-05-13 19:04:00) [48]

первый
кусок Работает и создает файл которого в папке небыло а второй ничего не создает.
Почему ?

---

Palladin   (2008-05-13 19:04:00) [49]

когда потом? "потом" это какое то время года? а когда ты это "потом" видишь?

---

wnix   (2008-05-13 19:03:00) [50]

есть только папка data
'data\temp.r'
а файла temp.r нету !!!
он потом появляется!

---

Palladin   (2008-05-13 19:00:00) [51]

потому что бананы желтые и гнилые, а помидоры не похожи на огурцы...


>  AssignFile(f1,Edit1.Text);
>  Reset(f1) ;
>  AssignFile(f2,'data\temp.r');
>  InLink := 'data\temp.r';
>  rewrite(f2) ;

у тебя существует файл Edit1.Text, потому и работает


>
>  AssignFile(f1,InLink);
>  Reset(f1) ;
>  AssignFile(f2,'UnCrypt\'+edit2.text);
>  rewrite(f2) ;

у тебя не существует файл InLink, потому и не работает

или ты сомневаешься в безграничности вселенной?

---

wnix   (2008-05-13 18:56:00) [52]

Вот полный вид :
Это работает и файл создается

 memo1.Lines.Add('> Кодирование файла');
 n:=0;
 C:= length(MaskEdit1.Text);
 setlength(key,C);
 for I2 := 1 to C do
 key[i2] := byte(MaskEdit1.Text[i2]);

 AssignFile(f1,Edit1.Text);
 Reset(f1) ;
 AssignFile(f2,'data\temp.r');
 InLink := 'data\temp.r';
 rewrite(f2) ;

 While Not Eof(f1) do
 begin
   Read(f1, b);
   n := n + 1;
   if n = C then n := 0;
   b := b Xor key[n];
   Write(f2, b);
 end;

 CloseFile(f1);
 CloseFile(f2);


А это почемуто не работатет


n:=0;

 C:= length(MaskEdit2.Text);
 setlength(key,C);
 for I2 := 1 to C do
 key[i2] := byte(MaskEdit2.Text[i2]);

 AssignFile(f1,InLink);
 Reset(f1) ;
 AssignFile(f2,'UnCrypt\'+edit2.text);
 rewrite(f2) ;

 While Not Eof(f1) do
 begin
   Read(f1, b);
   n := n + 1;
   if n = C then n := 0;
   b := b Xor key[n];
   Write(f2, b);
 end;

 CloseFile(f1);
 CloseFile(f2);



почему так ?

---

Palladin   (2008-05-13 18:52:00) [53]

> Этот код создает файл
>  AssignFile(FInput,Inlink);
>  AssignFile(FOutput, 'Crypt\'+edit1.Text);

с чего вдруг он создает? он ничего не создает, он назначает переменным FInput и FOutput связь с названиями файлов...


> А этот не саздает и пишет что файла не существует.
>
>  AssignFile(f1,InLink);
>  Reset(f1) ;
>  AssignFile(f2,'UnCrypt\'+edit2.Text);
>  rewrite(f2) ;

и ты думаешь тебя жестоко обманывают?

---

Страницы:   < 1 2 3 >

Наверх