Заказ по дельфи

← →
ПростоФАН (2012-11-02 01:21) [0]

Добрый день!

Мне нужен дельфист, который умеет работать с файлами, а именно заносить туда информацию из полей дельфи(скажем эдит) по опр правилу. Файл бинарный поэтому надо заносить информацию со смещением. Более подробно я объясню уже в лично переписке. gleb.lucenko@mail.ru

Разумеется любой труд оплачивается.

← →
Германн © (2012-11-02 02:24) [1]

> ПростоФАН (02.11.12 01:21)

Ну пошли мне это предложение о работе на почту в моей анкете. У меня есть свободное время. Рассмотрю предложение и отвечу сразу.

← →
NkzAlex © (2012-11-02 05:31) [2]

Рубль за байт?

← →
alexdn © (2012-11-02 08:01) [3]

Я уже посмотрел исходники, там работа в основном с TList, с бинарными вроде, написано на D7, идёт конфликт версий с 2010 на основе char-ansichar в основном, соответственно с d2009 тоже должен быть конфликт.. о программе - интерфейс может слабоват немного, ну это мелочи, суть программы не открываю).

← →
alexdn © (2012-11-02 08:09) [4]

вот - http://www.delphisources.ru/forum/showthread.php?t=20202

← →
БарЛог © (2012-11-02 11:30) [5]

Дак это... было уже: http://delphimaster.net/view/15-1351699705/

← →
брат Птибурдукова (2012-11-02 11:47) [6]

> БарЛог © (02.11.12 11:30) [5]
Да ты, холоп, не уймёшься?! (ц)

Там нужен был программист, который хорошо умеет работать с файлами. Тут нужен программист, который умеет работать с файлами (пусть и поплоше), но заносить информацию из полей дельфи. Чего непонятного?

← →
БарЛог © (2012-11-02 11:51) [7]

> брат Птибурдукова (02.11.12 11:47) [6]

Простите, я не узнаю Вас в гриме! (То же ц)

← →
брат Птибурдукова (2012-11-02 11:52) [8]

Вот что крест животворящий делает! (опять ц)

← →
AV © (2012-11-02 11:54) [9]

Автору, сделай уже заказ на компонент
TByteWriter
FileToWrite: string;
SourceArray: array of byte;
RuleWrite|Endianness : перечисление из http://en.wikipedia.org/wiki/Endianness

← →
Inovet © (2012-11-02 16:26) [10]

Сколько оплата?

← →
брат Птибурдукова (2012-11-02 17:27) [11]

ой-вэй... присылай письмо с оценками времени и желаемой компенсацией, а топикстартер определит, справишься ли, достоин ли... первый раз его видишь, что ли?

← →
ПростоФАН (2012-11-02 18:41) [12]

Спасибо, за внимание. Заказ уже взят. тема пока не актуальна

← →
O'ShinW © (2012-12-02 00:34) [13]

Думаю, следует сообщить.
Некто Глеб Луценко, стукнулся в аську, и предложил дописать процедуру проекта.
Предложил 2 000 рублей.
Мне был прислан проект, написанный, скорее всего, несколькими людьми.
Требуемая процедура содержалась в каком из модулей, в полной каше кода.

Оценив весь проект в целом как вредный, я отказался его делать.

Глеб Луценко продолжал просить.
Тогда я предложил написать класс, который по заданному правилу извлекает файлы из другого файла, представляющего из себя склейку всех требуемых для извлечения файлов. С тем, что бы он сам его юзал, как будет угодно. Я неоднократно подчеркивал, что не буду писать проект. Луценко согласился, но неоднократно продолжал просить посмотреть весь проект, на что я неоднократно отвечал, что не желаю этого делать.

Класс я написал, протестировал на 2х тестовых дампах.
код юзания класса

if not(dlgOpen1.Execute) then
Exit;
D := TDecript.Create; // создается класс
D.Silent := True; // по возможности не орать об ошибках (исключения пишутся в Errors )
D.DumpFile := dlgOpen1.FileName;// файл-склейка. После передачи на вход файла происходит вся работа. Потом просто берем нужное.
if D.Errors <> "" then // если сказали не орать об ошибках, то их надо смотреть тут
begin
ShowMessage(D.Errors);
D.Errors := "";
end;

StringGrid1.RowCount := D.CountFiles; // кол-во файлов в файле-склейке
for i := 0 to D.CountFiles - 1 do // по всем файлам получаем базовую ин-фу
begin
StringGrid1.Cells[0,i] := D.InfoFiles[i].OriginalName; //имя
StringGrid1.Cells[1,i] := IntToStr(D.InfoFiles[i].OffSetBody); //смещение в файле-склейке
StringGrid1.Cells[2,i] := IntToStr(D.InfoFiles[i].LenBody); //длина в файле-склейке
StringGrid1.Cells[3,i] := IntToStr(i); //номер в файле-склейке

D.SaveFile(StrToInt(i), "c:", "префикс"); // записать i-ый файл на диск C: как "префикс-OriginalName"
end;

ничего сложного, тест-программка с этим кодом прилагалась.

Код касса был выпрошен, под предлогом что нож к горлу, надо показывать на следующий день.
На следующий день были долгие уговоры вставить использование его в процедуру проекта. Я так понял, автор не понимает ничего в своем проекте.

Я отказался. (Написано в разных стилях, да и вообще, нахрена мне это, разбитраться в батон-кликах этих всех)
Сумма была увеличена до 4 000, я все равно отказался.

Тогда было объявлено, что я не сделал задание и денег не будет.
Я ответил, что как ему будет угодно, но историю я тогда опубликую.
Деньги не большие, а дело принципа.

Если кому интересно / сомневается - могу послать лог разговора из аськи почтой (утром или в понедельник ).

> D.SaveFile(StrToInt(i),

блин :)
эту строку по памяти сюда дописал, т.е. просто i

в классе паблик метод:
procedure SaveFile(const idx: Integer; const Path, Prefix: string);

← →
знайка (2012-12-02 01:21) [15]

> историю я тогда опубликую.
ну и чего не публикуете? :)

> знайка (02.12.12 01:21) [15]

дык, в [13] она и есть :)
Подробностей в переписке немного больше, но суть не меняется.

← →
Ваще имя (2012-12-02 02:03) [18]

В вашей истории остается непонятным, почему вы всё время отказывались, но в это время всё-таки что-то писали для заказчика.

да, тут все запаслись попкорном, а ты ломаешь кайф - ждем рассказ подробный и в красках

Заказ по дельфи Найти похожие ветки