Поток: открыть любой файл, определить его размер и занести в новый файл

@rabbit555 · Регистрация: 08.09.2011

очень нужно решить две задачи

1.Создать поток открывающий любой файл,определить его размер и занести в новый файл.

2.Создать поток переводящий содержимое текстового файла из маленьких букв в большие.Исходный файл не портить.Новый файл ввести с помощью процесса.

заранеее спасибо

Добавлено через 1 минуту
язык делфи

deathNC · 08.09.2011, 17:37

Не по теме:

Так раздел Дельфи, это и так понятно. Сейчас напишу...

@rabbit555 · 08.09.2011, 17:38 **[ТС]**

век должен буду

deathNC · 08.09.2011, 17:43

По поводу первого задания:
В разделе type пиши это:

Delphi

type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
  public
    FileName: String;
  end;

И так надо описать Execute в разделе юнита - implementation:

Delphi

procedure TMyThread.Execute;
var
  sr: TSearchRec;
  fl: TextFile;
begin
  If FindFirst(FileName, faAnyFile, sr) = 0 then
    begin
      AssignFile(fl, ExtractFilePath(ParamStr(0)) + 'data.txt');
      Rewrite(fl);
      WriteLn(fl, (IntToStr(sr.Size) + ' bytes'));
      CloseFile(fl);
    end;
  FindClose(sr);
end;

@rabbit555 · 08.09.2011, 17:45 **[ТС]**

я совсем не шарю
можно прогу в целом?

deathNC · 08.09.2011, 17:46

И вот как это использовать:

Delphi

var
  mt: TMyThread;
begin
  mt := TMyThread.Create(true); // создаём экземпляр класса
  mt.FileName := 'Имя файла'; // тут указываем имя файла
  mt.FreeOnTerminate := True; // автоуничтожение
  mt.Resume; // запускаем поток

Добавлено через 46 секунд
rabbit555, прогу?
Ладно... с формой, или без. Если без форм, то консольное или совсем-совсем простое приложение?

@rabbit555 · 08.09.2011, 17:53 **[ТС]**

с форомой
сложное не надо

Добавлено через 45 секунд
deathNC, есть мейл агент или контакт?

Добавлено через 1 минуту
deathNC, есть контакт?

deathNC · 08.09.2011, 17:54

Не, я только на форуме... мейл только почта, так что тут на форуме проще. Тем более тут коды проще демонстрировать. Подожди 5-10 минут, я весь проект первый напишу...

deathNC · 08.09.2011, 18:05

Вот тебе первый проект!

@rabbit555 · 08.09.2011, 18:07 **[ТС]**

благодарю

deathNC · 08.09.2011, 18:11

Не по теме:

Сейчас, второй дописываю...

@rabbit555 · 08.09.2011, 18:16 **[ТС]**

а там в первом нужно сохранить файл с размером текстовый этого нет?

deathNC · 08.09.2011, 18:23

В первом он сохраняется в папку с программой... data.txt

Ну, и второй проект:

deathNC · 08.09.2011, 18:24

А в первом надо, чтобы ты указал, куда текстовый файл сохранять с размером файла? Или куда его сохранять-то?

@rabbit555 · 08.09.2011, 18:28 **[ТС]**

желательно указать куда сохранять

deathNC · 08.09.2011, 18:30

ОК, через минутку кину исправленную версию...

deathNC · 08.09.2011, 18:34

вот...

deathNC · 08.09.2011, 18:42

Ну как? Подошло?

@rabbit555 · 08.09.2011, 18:42 **[ТС]**

Delphi

1	Application.MainFormOnTaskbar := True;

Комментарий модератора

Используйте специальные теги форматирования кода!

[Error] threads1.dpr(11): Undeclared identifier: 'MainFormOnTaskbar'

вот такая ошибка

deathNC · 08.09.2011, 18:45

Удали эту строку... в старых версиях дельфи её нету, я просто на Delph 2009 писал проект...

@rabbit555 0 / 0 / 0 Регистрация: 08.09.2011 Сообщений: 16
	08.09.2011, 18:16 [ТС]	12
	а там в первом нужно сохранить файл с размером текстовый этого нет? 0

deathNC 1903 / 1014 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	08.09.2011, 18:24	14
	А в первом надо, чтобы ты указал, куда текстовый файл сохранять с размером файла? Или куда его сохранять-то? 0

@rabbit555 0 / 0 / 0 Регистрация: 08.09.2011 Сообщений: 16
	08.09.2011, 18:28 [ТС]	15
	желательно указать куда сохранять 0

deathNC
	08.09.2011, 17:37 #2
	Не по теме: Так раздел Дельфи, это и так понятно. Сейчас напишу... 1

@rabbit555 0 / 0 / 0 Регистрация: 08.09.2011 Сообщений: 16
	08.09.2011, 17:38 [ТС]	3
	век должен буду 0

@rabbit555 0 / 0 / 0 Регистрация: 08.09.2011 Сообщений: 16
	08.09.2011, 17:45 [ТС]	5
	я совсем не шарю можно прогу в целом? 0

@rabbit555 0 / 0 / 0 Регистрация: 08.09.2011 Сообщений: 16
	08.09.2011, 17:53 [ТС]	7
	с форомой сложное не надо Добавлено через 45 секунд deathNC, есть мейл агент или контакт? Добавлено через 1 минуту deathNC, есть контакт? 0

deathNC 1903 / 1014 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	08.09.2011, 17:54	8
	Не, я только на форуме... мейл только почта, так что тут на форуме проще. Тем более тут коды проще демонстрировать. Подожди 5-10 минут, я весь проект первый напишу... 0

@rabbit555 0 / 0 / 0 Регистрация: 08.09.2011 Сообщений: 16
	08.09.2011, 18:07 [ТС]	10
	благодарю 0

deathNC
	08.09.2011, 18:11 #11
	Не по теме: Сейчас, второй дописываю... 0

deathNC 1903 / 1014 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	08.09.2011, 18:30	16
	ОК, через минутку кину исправленную версию... 0

deathNC 1903 / 1014 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	08.09.2011, 18:42	18
	Ну как? Подошло? 0

deathNC 1903 / 1014 / 123 Регистрация: 08.12.2009 Сообщений: 2,792 Записей в блоге: 2
	08.09.2011, 18:45	20
	Удали эту строку... в старых версиях дельфи её нету, я просто на Delph 2009 писал проект... 0