Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Нужна помощь! 
:(
    Опции темы
xlocked
Дата 25.1.2009, 19:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 21.1.2009

Репутация: нет
Всего: нет



Имя файла правильное, и серавно ненаходит.
А вот если  
Код

fName:='С:\file.txt';

поменять на
Код

fName:='file.txt';
 и файл кинуть в корень диска где файл лежит, то все норм отправляет )
Но мне надо чтоб 1 способ работал.
PM MAIL   Вверх
Данкинг
Дата 25.1.2009, 19:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



На какой строке ошибка вылезает? На AssignFile ??


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Delph1n
Дата 25.1.2009, 19:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 14.12.2008

Репутация: нет
Всего: нет



У меня тоже не пашет. При компиляции никакой ошибки, все ровно, но файл file.txt не находит. Как тут быть?
PM MAIL   Вверх
xlocked
Дата 25.1.2009, 19:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 21.1.2009

Репутация: нет
Всего: нет



Цитата(Данкинг @  25.1.2009,  19:29 Найти цитируемый пост)
На какой строке ошибка вылезает? На AssignFile ??

Ошибок при компиляции никаких не выдает, а когда файл запускаешь и нажимаешь на кнопку то пишет ErrorC:\file.txt

Это сообщение отредактировал(а) xlocked - 25.1.2009, 19:51
PM MAIL   Вверх
Данкинг
Дата 25.1.2009, 19:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



xlocked, до while not EOF(f) do.... программа доходит? Какой полный текст ошибки?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
xlocked
Дата 25.1.2009, 20:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 21.1.2009

Репутация: нет
Всего: нет



Цитата(Данкинг @  25.1.2009,  19:55 Найти цитируемый пост)
xlocked, до while not EOF(f) do.... программа доходит? Какой полный текст ошибки?

Полный код ошибки я написал. Я понял в чем причина была, из-за того что файл был пустой, как только я в файл скопировал небольшой текст и сохранил, то файл успешно записался на хост smile 
Я так понял что он не сам файл отправляет, а его содержимое?
И еще такой вопросик, как после успешной отправки удалить файл?
Код знаю (DeleteFile('c:\file.txt')) а как привязать незнаю.

Это сообщение отредактировал(а) xlocked - 25.1.2009, 20:15
PM MAIL   Вверх
Данкинг
Дата 25.1.2009, 20:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



Цитата(xlocked @  25.1.2009,  20:14 Найти цитируемый пост)
Я так понял что он не сам файл отправляет, а его содержимое?

Судя по коду - да.

Цитата(xlocked @  25.1.2009,  20:14 Найти цитируемый пост)
Код знаю (DeleteFile('c:\file.txt')) а как привязать незнаю.

Что куда привязать? Так и пиши.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
xlocked
Дата 25.1.2009, 20:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 21.1.2009

Репутация: нет
Всего: нет



Цитата(Данкинг @  25.1.2009,  20:27 Найти цитируемый пост)
Что куда привязать? Так и пиши.

Мне нужно чтобы после отправки file.txt на хост, file.txt удалялся с компьютера.

Это сообщение отредактировал(а) xlocked - 25.1.2009, 21:00
PM MAIL   Вверх
Ийон
Дата 26.1.2009, 07:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 26.1.2009

Репутация: нет
Всего: нет



xlocked

Просто допиши в конец процедуры.
PM MAIL   Вверх
xlocked
Дата 26.1.2009, 18:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 21.1.2009

Репутация: нет
Всего: нет



Вот в конце кода добавлял
Код

var
   fileName : string;
   myFile : TextFile;
   data : string;

begin

   fileName := 'C:\file.txt';
   AssignFile(myFile, fileName);

  DeleteFile(fileName);

При запуске проги файл даже удаляется. Подскажите как сделать чтоб при нажатии кнопки файл (file.txt) отправлялся на хост а потом удалялся?

Это сообщение отредактировал(а) xlocked - 26.1.2009, 18:28
PM MAIL   Вверх
Poseidon
Дата 26.1.2009, 19:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 9
Всего: 133



xlocked
Цитата(Ийон @  26.1.2009,  07:57 Найти цитируемый пост)
допиши в конец процедуры.




--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Данкинг
Дата 26.1.2009, 20:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



 smile 
xlocked, почитай "Библию Дельфи", дабы иметь представления о Дельфи и о программировании в целом. И книжку по основам Паскаля тоже не мешало бы осилить.

Это сообщение отредактировал(а) Данкинг - 26.1.2009, 20:00


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
xlocked
Дата 31.1.2009, 06:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 14
Регистрация: 21.1.2009

Репутация: нет
Всего: нет



Дописывал я в конце процедуры
Код

DeleteFile('c:\file.txt')

и вот так пробовал
Код

fileName := 'C:\file.txt';
   AssignFile(myFile, fileName);
  DeleteFile(fileName);

Но всеравно файл неудаляется, а на хост файл уходит.

barshol
Ты создал бы отдельный топик.
PM MAIL   Вверх
Данкинг
Дата 31.1.2009, 12:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



barshol, конечно, в рамках топика "нужна помощь" твой пост оффтопиком не является, но плюсанул его (пост) я случайно, я "минус" хотел нажать. smile 

Цитата(xlocked @  31.1.2009,  06:53 Найти цитируемый пост)
Дописывал я в конце процедуры

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

Цитата(xlocked @  31.1.2009,  06:53 Найти цитируемый пост)
и вот так пробовал

Это заведомая ерунда.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
~FoX~
Дата 3.2.2009, 13:11 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68



Цитата(Данкинг @  31.1.2009,  13:03 Найти цитируемый пост)
Вот так и нужно. Почему не удаляется - не знаю, проверь доступ к файлу, может, он открыт чем-нибудь.

Им же и открыт  smile 

А кто  CloseFile(F); делать будет???


Код

fileName := 'C:\file.txt';
   AssignFile(myFile, fileName);
//тварим чти нить с файлом
  CloseFile(fileName); 
  DeleteFile(fileName);




Это сообщение отредактировал(а) ~FoX~ - 3.2.2009, 13:12


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0912 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.