Вопросы по Delphi (все версии) - часть 3 - [32] :: Прикладное программирование :: Компьютерный форум Ru.Board
Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3

Модерирует : ShIvADeSt

ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

   

antonn2

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
2Polkan
строка всегда формата "Потеряно X из Y юнитов А"?

Всего записей: 97 | Зарегистр. 13-11-2006 | Отправлено: 23:14 14-08-2007
GreatOne



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А можно-ли как-нить запустить одну программу через другую, чтобы первая была не видна в процессах(в смысле как-бы один процесс на две программы)???
 
P.S. Если спросил фигню - то извините

Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 16:21 15-08-2007
MsdLamer

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
пользовался вот этим исходником для вставки в ячейки Excel, подскажите пожалуйста как теперь закрыть этот файлик и сохранить к примеру на 'C:\отчеты\' с текущей датой на конце (Отчет_15_08_07.xls). Спасибо.  
uses ..., comobj;  
 
procedure  
  var XL:Variant;  
  s:string;  
  row,col:integer;  
begin  
  try  
    try XL := GetActiveOleObject('Excel.Application');  
    except XL := CreateOleObject('Excel.Application');  
    end;  
  except  
    raise Exception.Create('Can nor run Excel');  
  End;  
  XL.Visible := True;  
  XL.Workbooks.Add('Отчет.xls');  
// s:=прочитать значение из файла    
// row:= ... ; col:=... ;  
  XL.Cells[row, col].Value:=s;  
end;

Всего записей: 53 | Зарегистр. 26-07-2007 | Отправлено: 17:57 15-08-2007
antonn2

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GreatOne
можно написать службу и запустить ее, тогда в процессах будет название svchost.exe (один из трех-пяти)
 
скрыть процессы в winnt нельзя.

Всего записей: 97 | Зарегистр. 13-11-2006 | Отправлено: 21:49 15-08-2007
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
MsdLamer
Сохрани ссылку на созданную книгу:
WB := XL.Workbooks.Add('Отчет.xls');
и потом сохрани ее:  
WB.SaveAs('C:\Отчеты\Отчет_' + FormatDateTime('dd_mm_yy', Now) + '.xls');
Если будут нужны еще какие-нибудь параметры можешь глянуть в самом Excel (так проще всего узнать как программно сделать то или иное действие)  - начинаешь запись макроса, делаешь то, что нужно, останавливаешь запись, смотришь макрос, нужное переносишь себе в программу

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 22:39 15-08-2007 | Исправлено: RomanTim, 22:45 15-08-2007
skinash



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
2Polkan
Я так понимаю, тебе нужен парсер (анализатор) строки. Есть такой класс TParser, им Delphi *.dfm файлы разбирает. Правда этот класс не документирован. Вот пара примеров:
Пример 1 [?]
Пример 2 [?]
Ещё можно здесь посмотреть.

Всего записей: 145 | Зарегистр. 21-09-2006 | Отправлено: 09:03 16-08-2007 | Исправлено: skinash, 09:08 16-08-2007
kalkin

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите пожалуйста как реализовать вот такой вопрос.
Нужно прочитать из текстового файла все строки, строки начинающиеся на # игнорировать и обработать параметры
login=вася, pass=123, и т.д. и чтоб их можно было потом использовать например так winexec('cmd /c '+login,sw_show);
Чтоб настройки читались как в Apache =)

Всего записей: 56 | Зарегистр. 19-05-2006 | Отправлено: 04:11 17-08-2007
andead



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
kalkin
TIniFiles?

Всего записей: 1821 | Зарегистр. 22-09-2005 | Отправлено: 04:42 17-08-2007
kalkin

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
не пытаюсь все в массив загнать  и оттуда работать.

Всего записей: 56 | Зарегистр. 19-05-2006 | Отправлено: 06:17 17-08-2007 | Исправлено: kalkin, 06:22 17-08-2007
Skipper



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Читай файл построчно и обрабатывай как надо тебе...

Всего записей: 961 | Зарегистр. 23-06-2002 | Отправлено: 08:04 17-08-2007
SERGE_BLIZNUK

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
kalkin удобно через TStringList это делать!

Код:
 
var
 i : Integer;
 ts : TStringList;
 s : string;
begin
try
  ts := TStringList.Create;
  ts.LoadFromFile('мой файлик.txt');
  for i:=0 to ts.Count - 1 do  
    begin
      s := Trim( ts.Strings[i] )
      if Length( s ) > 0 then
         if copy(s,1,1)<>'#' then begin
            <делаем то, что нужно делать с незакоменнтаренными строчками>
         end;        
    end;
finally
  FreeAndNil (ts )
end;
 

пишу прямо в форуме - в коде могут быть описки/ошибки...

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 08:53 17-08-2007
2Polkan



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
2Polkan  
Я так понимаю, тебе нужен парсер (анализатор) строки. Есть такой класс TParser, им Delphi *.dfm файлы разбирает. Правда этот класс не документирован. Вот пара примеров:  
Пример 1  
Пример 2  
Ещё можно здесь посмотреть.

 
спасибо, ето (почти) то что надо)
 
объясните нубу как еще в мемо построчно парсить каждую строку =)

Всего записей: 435 | Зарегистр. 20-11-2004 | Отправлено: 16:27 17-08-2007
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
2Polkan

Цитата:
объясните нубу как еще в мемо построчно парсить каждую строку

Код:
 
for i := 0 to Memo1.Lines.Count - 1 do  
  ParseString(Memo1.Lines[i]);


Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 16:32 17-08-2007
skinash



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
2Polkan
Если ты всё таки воспользуешься моим советом, то
Цитата:
в мемо построчно парсить каждую строку
не надо. Мемо легко переводится в Stream, а TParser работает с потоком. Советую изучить этот вопрос, очень полезная штука и много чего можно из неё выжать.
Ну а если всё таки сам будешь разбирать свою строку, то RomanTim правильно говорит, единствнное, тебе надо придумать эту процедуру ParseString.
 

Всего записей: 145 | Зарегистр. 21-09-2006 | Отправлено: 15:35 19-08-2007
Maks150988



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите пожалуйста как центрировать диалог открытия файлов на WinAPI.

Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 01:06 20-08-2007
GreatOne



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ, а как скопировать папку со всеми файлами и вложенными папками???

Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 11:22 20-08-2007
skinash



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Maks150988
А как ты создаёшь окно диалога открытия файлов на WinAPI? Там наверняка должен быть параметр, отвечающий за центрирование.
 
Добавлено:
GreatOne
Смотри в виндовой справке ShFileOperation
Вот пример:

Код:
procedure TForm1.Button2Click(Sender: TObject);
var
  OpStruc: TSHFileOpStruct;
  frombuf, tobuf: array [0..128] of Char;
begin
  FillChar(frombuf, SizeOf(frombuf), 0);
  FillChar(tobuf, SizeOf(tobuf), 0);
  StrPCopy(frombuf, 'd:\brief\*.*');
  StrPCopy(tobuf, 'd:\temp\brief');
  with OpStruc do
  begin
    Wnd := Handle;
    wFunc := FO_COPY;
    pFrom := @frombuf;
    pTo := @tobuf;
    fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
    fAnyOperationsAborted := False;
    hNameMappings := nil;
    lpszProgressTitle := nil;
  end;
  ShFileOperation(OpStruc);
end;
 

Всего записей: 145 | Зарегистр. 21-09-2006 | Отправлено: 11:25 20-08-2007
GreatOne



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
skinash
Спасиба!

Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 11:45 20-08-2007
Maks150988



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
skinash, в том то и дело что я взял диск у друга с делфи, а сам не отметил галочку для установки справки win32. сама справка для делфи доступна только. к другу съездить не могу пока. приходится сюда обращаться. диалог создаю через функцию GetOpenFileNameA.
вообщем кстати задаю тогда еще один вопросец, интересующий меня. решил я значит грузить все строки для программы из ресурсов. но вот незадача для фильтра типов файлов в этом самом дилоге. я не знаю как правильно создать строку в редакторе ресурсов. в коде я делал так:
 

Код:
 
lpstrFilter :=  'Все поддерживаемые файлы (*.*)'#0'*.1;*.2;*.3;*.4;*.5;*.6;*.7;*.8;*.9;*.10'#0+
                     '1 (*.1)'#0'*.1'#0 +
                     '2 (*.2)'#0'*.2'#0 +
                     '3 (*.3)'#0'*.3'#0 +
                     '4 (*.4)'#0'*.4'#0 +
                     '5 (*.5)'#0'*.5'#0 +
                     '6 (*.6)'#0'*.6'#0 +
                     '7 (*.7)'#0'*.7'#0 +
                     '8 (*.8)'#0'*.8'#0 +
                     '9 (*.9)'#0'*.9'#0 +
                     '10 (*.10)'#0'*.10'#0 +
                    'Все файлы (*.*)'#0'*.*'#0#0;
 

 
а когда начал в редакторе ресурсов все это делать,не понял как вообще правильно там разрывы строк указать.

Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 14:09 20-08-2007
skinash



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Maks150988
Короче, вот примерчик. Здесь OpenDialog не центрируется, а рисуется относительно верхнего левого угла вызывающей формы. Координаты указываются в rc-шаблоне.
Файл ресурсов myres.rc: Подробнее... [?]
Компилируется brcc32 myres.rc
Получается myres.res
Собственно код:
Подробнее... [?]
Возможно, в этом шаблоне и центрирование можно как-то сделать.

Всего записей: 145 | Зарегистр. 21-09-2006 | Отправлено: 15:15 20-08-2007
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3
ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru