RusFAQ.ru: Программирование на Delphi

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 173
от 07.07.2005, 01:40

Вопрос № 22.931

Здравствуйте уважаемые эксперты. Есть dbf таблицы созданные в foxpro под дос. Так когда открываешь эти таблицы в делфи через ado русский тескт читается не во всех полях. Т.е. в поле 1 в записи один если он читается то в том же поле, но в записи два вместо русских букв крякозябры. Пробывал настройки windows менять(шрифты, кодировки) ничего не помогло. Вопрос: как можно решить данную проблему, как переконвертировать таблицу из одной кодировки в другую. Если можно то поделитесь куском кода.

Отправлен: 01.07.2005, 12:59 Вопрос задал: Crick (статус: Посетитель) Всего ответов отправлено: 3

Отвечает: Gin Здравствуйте, Crick! Вариантов много. Один из них - смотрите приложение. С Уважением, Gin. Приложение: type TCode = (win, koi, iso, dos); const CodeStrings: array [TCode] of string = ('win','koi','iso','dos'); procedure TForm1.Button1Click(Sender: TObject); var str: array [TCode] of string; norm: array ['А'..'я'] of single; code1, code2: TCode; min1, min2: TCode; count: array [char] of integer; d, min: single; s, so: string; chars: array [char] of char; c: char; i: integer; begin so := Memo1.Text; norm['А'] := 0.001; norm['Б'] := 0; norm['В'] := 0.002; norm['Г'] := 0; norm['Д'] := 0.001; norm['Е'] := 0.001; norm['Ж'] := 0; norm['З'] := 0; norm['И'] := 0.001; norm['Й'] := 0; norm['К'] := 0.001; norm['Л'] := 0; norm['М'] := 0.001; norm['Н'] := 0.001; norm['О'] := 0.001; norm['П'] := 0.002; norm['Р'] := 0.002; norm['С'] := 0.001; norm['Т'] := 0.001; norm['У'] := 0; norm['Ф'] := 0; norm['Х'] := 0; norm['Ц'] := 0; norm['Ч'] := 0.001; norm['Ш'] := 0.001; norm['Щ'] := 0; norm['Ъ'] := 0; norm['Ы'] := 0; norm['Ь'] := 0; norm['Э'] := 0.001; norm['Ю'] := 0; norm['Я'] := 0; norm['а'] := 0.057; norm['б'] := 0.01; norm['в'] := 0.031; norm['г'] := 0.011; norm['д'] := 0.021; norm['е'] := 0.067; norm['ж'] := 0.007; norm['з'] := 0.013; norm['и'] := 0.052; norm['й'] := 0.011; norm['к'] := 0.023; norm['л'] := 0.03; norm['м'] := 0.024; norm['н'] := 0.043; norm['о'] := 0.075; norm['п'] := 0.026; norm['р'] := 0.038; norm['с'] := 0.034; norm['т'] := 0.046; norm['у'] := 0.016; norm['ф'] := 0.001; norm['х'] := 0.006; norm['ц'] := 0.002; norm['ч'] := 0.011; norm['ш'] := 0.004; norm['щ'] := 0.004; norm['ъ'] := 0; norm['ы'] := 0.012; norm['ь'] := 0.012; norm['э'] := 0.003; norm['ю'] := 0.005; norm['я'] := 0.015; Str[win] := 'АаБбВвГгДдЕеЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя'; Str[koi] := 'юЮаАбБцЦдДеЕфФгГхХиИйЙкКлЛмМнНоОпПяЯрРсСтТуУжЖвВьЬыЫзЗшШэЭщЩчЧъЪ'; Str[iso] := 'РрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯяа№бёвђгѓдєеѕжізїијйљкњлћмќн§оўпџ'; Str[dos] := 'Ђ ЃЎ‚ўѓЈ"¤…Ґ†¦‡§€Ё‰©ЉЄ‹"ЊЌЋ®ЏЇђа'б'в"г"дoе-ж-зи™йљк›лњмќнћоџпз?и™йљк›лњмќнћоџп'; for c := #0 to #255 do Chars[c] := c; min1 := win; min2 := win; min := 0; s := so; fillchar(count, sizeof(count), 0); for i := 1 to Length(s) do inc(count[s[i]]); for c := 'А' to 'я' do min := min + sqr(count[c] / Length(s) - norm[c]); for code1 := low(TCode) to high(TCode) do begin for code2 := low(TCode) to high(TCode) do begin if code1 = code2 then continue; s := so; for i := 1 to Length(Str[win]) do Chars[Str[code2][i]] := Str[code1][i]; for i := 1 to Length(s) do s[i] := Chars[s[i]]; fillchar(count, sizeof(count), 0); for i := 1 to Length(s) do inc(count[s[i]]); d := 0; for c := 'А' to 'я' do d := d + sqr(count[c] / Length(s) - norm[c]); if d < min then begin min1 := code1; min2 := code2; min := d; end; end; end; s := Memo1.Text; if min1 <> min2 then begin for c := #0 to #255 do Chars[c] := c; for i := 1 to Length(Str[win]) do Chars[Str[min2][i]] := Str[min1][i]; for i := 1 to Length(s) do s[i] := Chars[s[i]]; end; Form1.Caption := CodeStrings[min2] + ' ' + CodeStrings[min1]; Memo2.Text := s; end;

Ответ отправил: Gin (статус: Студент) Отправлен: 01.07.2005, 13:52

Отвечает: Jadd Здравствуйте, Crick! Помнится я решал как-то такую задачу. Я ее решил заменой фонта, поддерживающего дос кодировку (по-моему, Termial) в БДЕ. Как сделать для ADO мимо БДЕ не знаю. Могу только предложить воспользоваться функциями OemToAnsi из WinAPI и перекодировать все текстовые поля таблицы. Впринципе, если не получится, пиши на xlcoder@mail.ru подумаю еще. --------- Если в сердце дверь закрыта, нужно в печень постучаться

Ответ отправил: Jadd (статус: Студент) Отправлен: 01.07.2005, 15:28

Отвечает: Витомский Вадим Викторович Здравствуйте, Crick! Можно попробовать API-функцию OEMToAnsi(PChar(s),PChar(s)) для перекодировки одной строки. Для перекодировки БД в цикле пройтись по всем записям.

Ответ отправил: Витомский Вадим Викторович (статус: 1-ый класс) Отправлен: 04.07.2005, 09:23

Вопрос № 22.932

Здравствуйте уважаемые эксперты. Как используя keybd_event послать нажатие управляющих клавиш(Вверх, вниз, Page Up и т.д.) Спасибо.

Отправлен: 01.07.2005, 13:14 Вопрос задал: Ivaan (статус: Посетитель) Всего ответов отправлено: 3

Отвечает: Gin Здравствуйте, Ivaan! Вверх, вниз, Page Up и т.д.: vk_Up = Вверх or Page Up; vk_Down = Вниз; vk_Left = и т.д.; vk_Right = и т.д.; Простейший пример: procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_UP then ShowMessage('Теперь клавиша "VK_UP"'); if Key=VK_Down then ShowMessage('Теперь клавиша "VK_Down"'); if Key=VK_Left then ShowMessage('Теперь клавиша "VK_Left"'); if Key=VK_Right then ShowMessage('Теперь клавиша "VK_Right"'); if Key=VK_End then Close; end; Вариант применения (для текста и клавиш) в приложении. С Уважением, Gin. Приложение: unit Unit1; interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormKeyPress(Sender: TObject; var Key: Char); private AppInst: THandle; AppWind: THandle; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} uses ShellAPI; procedure SendShift(H: HWnd; Down: Boolean); var vKey, ScanCode, wParam: Word; lParam: longint; begin vKey := $10; ScanCode := MapVirtualKey(vKey, 0); wParam := vKey or ScanCode shl 8; lParam := longint(ScanCode) shl 16 or 1; if not (Down) then lParam := lParam or $C0000000; SendMessage(H, WM_KEYDOWN, vKey, lParam); end; procedure SendCtrl(H: HWnd; Down: Boolean); var vKey, ScanCode, wParam: Word; lParam: longint; begin vKey := $11; ScanCode := MapVirtualKey(vKey, 0); wParam := vKey or ScanCode shl 8; lParam := longint(ScanCode) shl 16 or 1; if not (Down) then lParam := lParam or $C0000000; SendMessage(H, WM_KEYDOWN, vKey, lParam); end; procedure SendKey(H: Hwnd; Key: char); var vKey, ScanCode, wParam: Word; lParam, ConvKey: longint; Shift, Ctrl: boolean; begin ConvKey := OemKeyScan(ord(Key)); Shift := (ConvKey and $00020000) <> 0; Ctrl := (ConvKey and $00040000) <> 0; ScanCode := ConvKey and $000000FF or $FF00; vKey := ord(Key); wParam := vKey; lParam := longint(ScanCode) shl 16 or 1; if Shift then SendShift(H, true); if Ctrl then SendCtrl(H, true); SendMessage(H, WM_KEYDOWN, vKey, lParam); SendMessage(H, WM_CHAR, vKey, lParam); lParam := lParam or $C0000000; SendMessage(H, WM_KEYUP, vKey, lParam); if Shift then SendShift(H, false); if Ctrl then SendCtrl(H, false); end; function EnumFunc(Handle: HWnd; TF: TForm1): Bool; far; begin TF.AppWind := 0; if GetWindowWord(Handle, GWW_HINSTANCE) = TF.AppInst then TF.AppWind := Handle; result := (TF.AppWind = 0); end; procedure TForm1.Button1Click(Sender: TObject); var Text: array[0..255] of char; begin AppInst := ShellExecute(Handle, 'open', 'notepad.exe', nil, '', SW_NORMAL); EnumWindows(@EnumFunc, longint(self)); AppWind := GetWindow(AppWind, GW_CHILD); end; procedure TForm1.Button2Click(Sender: TObject); begin SendKey(AppWind, 'T'); SendKey(AppWind, 'e'); SendKey(AppWind, 's'); SendKey(AppWind, 't'); end; procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if AppWind <> 0 then SendKey(AppWind, Key); end; end.

Ответ отправил: Gin (статус: Студент) Отправлен: 01.07.2005, 14:38 Оценка за ответ: 5

Отвечает: Ерёмин Андрей Здравствуйте ещё раз, Ivaan! Я же Вам написал: keybd_event(VK_RETURN,0,0,0); keybd_event(VK_RETURN,0,KEYEVENTF_KEYUP,0); Первая строка посылает сообщение всей системе, будто на клавиатуре нажата клавиша. Вторая строка посылает сообщение, что нажатая клавиша отпущена. Старайтесь не забывать эту строку. Конечно, должно и так работать, но когда-нибудь, где-нибудь, это может вызвать ошибку или заглючить. Вместо VK_RETURN подставляйте любую нужну. клавишу (VK_UP,VK_DOWN, Чтобы узнать код нужной клавиши, откройте файл справки: Пуск - Программы - Borland Delphi - Help - MS SDK Help Files - Win32s Programmer's Reference. В строке поиска введите "Virtual-Key Codes". В этом разделе находится большая таблица обозначений клавиш. Кроме значения VK_##### можно указывать код символа. Например, $43 - клавиша "C". Вот пример, как "нажать на клавиатуре" (виртуально) комбинацию Ctrl+C: keybd_event(VK_CONTROL,0,0,0); keybd_event($43,0,0,0); keybd_event($43,0,KEYEVENTF_KEYUP,0); keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0); И перед "нажатиями" не забывайте активировать нужное окно. Удачи! --------- Если б не было бы глюка, жизнь была б такая скyка...

Ответ отправил: Ерёмин Андрей (статус: Студент) Отправлен: 01.07.2005, 16:59 Оценка за ответ: 5

Отвечает: streetcat Здравствуйте, Ivaan! keybd_event(VK_UP, 0, 0, 0); вместо VK_UP (клав. "Вверх") подставляй: VK_DOWN (вниз), VK_LEFT, VK_RIGHT (влево, вправо) VK_NEXT и VK_PRIOR (Page DOWN, Page Up) Открывай WINAPI хелп и пиши в указатель строку "Virtual-Key Codes" --------- WinERROR: Keyboard not detected. Press Enter to continue

Ответ отправил: streetcat (статус: 7-ой класс) Отправлен: 04.07.2005, 19:03

Вопрос № 22.936

Уважаемые эксперты! Как копироват файл: Нажав на один объект ShellListView1 и нажав на папку в ShellListView2? Не могли бы вы дать прямо с исходником. Спасибо за ответы.

Отправлен: 01.07.2005, 14:58 Вопрос задал: Sassoft (статус: Посетитель) Всего ответов отправлено: 1

Отвечает: Tsechoev Bagaudin Здравствуйте, Sassoft! Если нужно таким же макаром копировать папку, то вот ссылка как копировать папку: http://delphiworld.narod.ru/base/copy_del_dirs.html Удачи! Приложение: procedure TForm1.ShellListView2Click(Sender: TObject); var FlName: String; begin // Копируются только файлы if (Not ShellListView1.SelectedFolder.IsFolder) then begin FlName := ExtractFileName(ShellListView1.SelectedFolder.PathName); if ShellListView2.SelectedFolder.IsFolder then CopyFile(PAnsiChar(ShellListView1.SelectedFolder.PathName),PAnsiChar(ShellListView2.SelectedFolder.PathName+''+FlName),True); end; end; --------- Есть только одно зло - невежество, и только одно благо - знания

Ответ отправил: Tsechoev Bagaudin (статус: 6-ой класс) Отправлен: 01.07.2005, 17:23

Вопрос № 22.942

Здравствуйте. 1.Как можно послать окну нажатие клавиш Alt+shift (изменить язык ввода)? 2.Как эмулировать нажатие клавиш с шифтом? Спасибо.

Отправлен: 01.07.2005, 15:30 Вопрос задал: Ivaan (статус: Посетитель) Всего ответов отправлено: 3

Отвечает: Ерёмин Андрей Здравствуйте третий раз, Ivaan! :) Помогаю Вам в третий раз по тому же вопросу. Итак: 1. Пояснение: VK_MENU - обозначение [Alt]. keybd_event(VK_MENU,0,0,0); keybd_event(VK_SHIFT,0,0,0); keybd_event(VK_SHIFT,0,KEYEVENTF_KEYUP,0); keybd_event(VK_MENU,0,KEYEVENTF_KEYUP,0); 2. Сначала зажимаем [Shift], потом нажимаем нужную клавишу и отпускает [Shift.] keybd_event(VK_SHIFT,0,0,0); keybd_event($58,0,0,0); keybd_event($58,0,KEYEVENTF_KEYUP,0); keybd_event(VK_SHIFT,0,KEYEVENTF_KEYUP,0); Будет нажато [Shift]+[X]. Ещё раз удачи! --------- Если б не было бы глюка, жизнь была б такая скyка...

Ответ отправил: Ерёмин Андрей (статус: Студент) Отправлен: 01.07.2005, 16:59 Оценка за ответ: 5

Отвечает: Tsechoev Bagaudin Здравствуйте, Ivaan! Если ты хочешь менять раскладку клавиатуры это делается просто 1. Вешаешь на какие нибудь события var Layout: array[0.. KL_NAMELENGTH] of char; begin // Английская раскладка LoadKeyboardLayout(StrCopy(Layout,'00000419'),KLF_ACTIVATE); // Русская LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE); end; 2. Вот ссылка по второму вопросу http://timhome.hut.ru/delphi/myFAQ_Delphi01.htm#83 Удачи! --------- Есть только одно зло - невежество, и только одно благо - знания

Ответ отправил: Tsechoev Bagaudin (статус: 6-ой класс) Отправлен: 01.07.2005, 17:52

Отвечает: Gin Здравствуйте, Ivaan! 1. В следующий раз задавайте вопрос конкретней - правый/левый Shift/Alt, для активного/неактивного окна и т.д.. 2. Пример ЭМУЛЯЦИИ в приложении. С Уважением, Gin. Приложение: procedure PressKey(Key: Word); // имитация нажатия клавиши Key begin keybd_event(Key,0,0,0); end; procedure ReleaseKey(Key: Word); // имитация отпускания клавиши Key begin keybd_event(Key,0,KEYEVENTF_KEYUP,0); end; procedure ClickKey(Key: Word); begin // имитация щелчка на клавише Key keybd_event(Key,0,0,0); keybd_event(Key,0,KEYEVENTF_KEYUP,0); end; procedure TForm1.Button1Click(Sender: TObject); var H:hWnd; BMCopy:TBitMap; begin // поиск программы 'Калькулятор' H:=FindWindow('SciCalc','Калькулятор'); // активизация программы 'Калькулятор' SetForegroundWindow(H); // если 'Калькулятор' не выполняется if (H = 0) // зпуск программы 'Калькулятор' then ShellExecute(Handle,'open','Calc',nil,nil,SW_RESTORE); // задержка Sleep(1000); // щелчок Alt ClickKey(VK_MENU); Sleep(1000); // щелчок стрелкой вправо - в меню "Вид" ClickKey(VK_RIGHT); Sleep(1000); // щелчок Enter - раскрытие меню ClickKey(VK_RETURN); Sleep(1000); // щелчок стрелкой вниз - во второй раздел меню ClickKey(VK_DOWN); Sleep(1000); // щелчок Enter - выполнение раздела ClickKey(VK_RETURN); Sleep(1000); // нажатие Alt - переход в полосу меню PressKey(VK_MENU); // щелчок клавиши с латинским 'D' и русским 'В' - // клавиша быстрого доступа ClickKey(ord('D')); // отпускание Alt ReleaseKey(VK_MENU); Sleep(1000); // щелчок Enter - выполнение раздела ClickKey(VK_RETURN); Sleep(1000); // щелчок цифры 2 ClickKey(ord('2')); Sleep(1000); // нажатие Shift PressKey(VK_SHIFT); // щелчок клавиши с цифрой 8 и знаком умножение ClickKey(187); // отпускание Shift ReleaseKey(VK_SHIFT); // щелчок цифры 2 ClickKey(ord('2')); Sleep(1000); // щелчок клавиши с символами '=' и '+' - результат ClickKey(187); Sleep(1000); // нажатие Ctrl-C - копирование результата PressKey(VK_CONTROL); ClickKey(ord('C')); ReleaseKey(VK_CONTROL); Sleep(1000); // чтение результата RichEdit1.Clear; RichEdit1.Lines.Add('2 * 2 = '); RichEdit1.SelStart := RichEdit1.SelStart - 2; RichEdit1.Perform(WM_PASTE,0,0); RichEdit2.Clear; RichEdit2.Lines.Add('2 * 2 = '); RichEdit2.SelStart := RichEdit2.SelStart - 2; RichEdit2.Perform(WM_PASTE,0,0); // занесение окна в буфер обмена PressKey(VK_MENU); ClickKey(VK_SNAPSHOT); ReleaseKey(VK_MENU); Sleep(1000); // возврат активности в данное приложение SetForegroundWindow(Handle); ShowMessage('Программа управления Калькулятором выполнена'); Form2.Visible := false; BMCopy := TBitMap.Create; try try BMCopy.LoadFromClipBoardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap),0); with Form2 do Image1.Canvas.CopyRect(Rect((ClientWidth-BMCopy.Width) div 2, (ClientHeight-Image1.Height) div 2, (ClientWidth+BMCopy.Width) div 2, (ClientHeight+BMCopy.Height) div 2), BMCopy.Canvas,Rect(0,0,BMCopy.Width,BMCopy.Height)); finally BMCopy.Free; end; except On EInvalidGraphic do ShowMessage('Ошибочный формат графики'); end; Form2.Show; end; procedure TForm1.RichEdit1Enter(Sender: TObject); begin LoadKeyboardLayout('00000419',KLF_ACTIVATE); if (GetKeyState(VK_CAPITAL) and 1) = 0 then ClickKey(VK_CAPITAL); end; procedure TForm1.RichEdit2Enter(Sender: TObject); begin LoadKeyboardLayout('00000409',KLF_ACTIVATE); if (GetKeyState(VK_CAPITAL) and 1) <> 0 then ClickKey(VK_CAPITAL); end;

Ответ отправил: Gin (статус: Студент) Отправлен: 01.07.2005, 18:25

Вопрос № 22.944

Здравствуйте эксперты, посоветуйте пожалуйста компонент для работы с COM портом!

Отправлен: 01.07.2005, 15:51 Вопрос задал: -[tr1pl3x]- (статус: 1-ый класс) Всего ответов отправлено: 4

Отвечает: Voituk Alexander Здравствуйте, -[tr1pl3x]-! Я пользую библиотеку ComPort Library находится http://comport.sf.net/ Бесплатная и работает отлично.

Ответ отправил: Voituk Alexander (статус: 9-ый класс) Отправлен: 01.07.2005, 16:24

Отвечает: Ерёмин Андрей Здравствуйте, -[tr1pl3x]-! Компонент не могу посоветовать, зато подскажу неплохой модуль: http://www.delphi.int.ru/download.php?id=26. Содержит функции и процедуры для получения и отправки данных через COM-порт. --------- Если б не было бы глюка, жизнь была б такая скyка...

Ответ отправил: Ерёмин Андрей (статус: Студент) Отправлен: 01.07.2005, 16:59

Отвечает: Tsechoev Bagaudin Здравствуйте, -[tr1pl3x]-! Вышли письмо с темой на адрес admin@ingush.com, вышлю компоненты. --------- Есть только одно зло - невежество, и только одно благо - знания

Ответ отправил: Tsechoev Bagaudin (статус: 6-ой класс) Отправлен: 01.07.2005, 17:53

Отвечает: Malish Здравствуйте, -[tr1pl3x]-! Встречал какой-то компанент, он мне не понравился. Лучше напрямую работать с COM портом через CreateFile. Это точно!!!

Ответ отправил: Malish (статус: Студент) Отправлен: 02.07.2005, 01:58

Вопрос № 22.945

Мне нужно в програму брать изображения Пример: В папке Game находится папка Images и в ней нужно взять 1.bmp. Как сделать так,чтобы независимо от директории,где находится Game можно было бы брать изображение? на Visual basic это вот так:=PicturePath = App.Path + "\images\1.jpg" Где App.path-директория,где находится программа А как будет на Delphi?

Отправлен: 01.07.2005, 15:55 Вопрос задал: Sassoft (статус: Посетитель) Всего ответов отправлено: 11

Отвечает: Rusland Здравствуйте, Sassoft! ExtractFilePath(Application.ExeName); или GetCurrnetDir();

Ответ отправил: Rusland (статус: 6-ой класс) Отправлен: 01.07.2005, 16:00

Отвечает: John Freeman Здравствуйте, Sassoft! Как-то ты странно это делаешь... По соглашениям OS есть просто относительные пути: image:='images1.jpg'; --------- You're trying to take me They trying to make me This is the only Gives me the only thing Tired of lying, I'm tired of lying The only thing I inderstand is what I feel...

Ответ отправил: John Freeman (статус: Профессор) Отправлен: 01.07.2005, 16:07

Отвечает: Voituk Alexander Здравствуйте, Sassoft! А на Дельфине точно так же. Только путь, где находится твой исполняемый файл будет так ExtractFilePath(Application.ExeName) + 'image1.jpg';

Ответ отправил: Voituk Alexander (статус: 9-ый класс) Отправлен: 01.07.2005, 16:28

Отвечает: Ерёмин Андрей Здравствуйте, Sassoft! Да практически точно также: PicturePath := ExtractFilePath(Application.ExeName) + 'images1.bmp'; Application.ExeName содержит полный путь к exe-файлу программы, ExtractFilePath возвращает каталог, в котором находится указанный файл. Удачи! --------- Если б не было бы глюка, жизнь была б такая скyка...

Ответ отправил: Ерёмин Андрей (статус: Студент) Отправлен: 01.07.2005, 16:59

Отвечает: Jadd Здравствуйте, Sassoft! Да точно так же. За тем исключением, что в дельфях есть класс Application, а в нем свойство ExeName, которое содержит полный путь к приложению, включая имя экзешника. Стало быть твой кусок кода будет выглядеть так: var exeName: String; appPath: String; begin appPath := Application.ExeName; exeName := ExtractFileName(appPath); Delete(appPath, Pos(exeName, appPath), Length(exeName)); appPath := appPath + 'images1.jpg'; Удачи. --------- Если в сердце дверь закрыта, нужно в печень постучаться

Ответ отправил: Jadd (статус: Студент) Отправлен: 01.07.2005, 18:55

Отвечает: Delphin Здравствуйте, Sassoft! Смотри приложение как будет. Приложение: Var PicturePath: String; // Объявим что такое PicturePath Begin PicturePath := ExtractFilePath(Application.ExeName)+'images1.jpg'; // Теперь путь к картинке в PicturePath --------- Обращаться в ICQ: 77778851 или E-Mail: delphinster@gmail.com

Ответ отправил: Delphin (статус: 7-ой класс) Отправлен: 01.07.2005, 20:00

Отвечает: -[tr1pl3x]- Здравствуйте, Sassoft! Даю самый простой, а главное рабочий пример. Независиммо в какой директории находится прога, всё будет работать. Приложение: procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.LoadFromFile('Game1.bmp'); end;

Ответ отправил: -[tr1pl3x]- (статус: 1-ый класс) Отправлен: 01.07.2005, 21:19

Отвечает: Malish Здравствуйте, Sassoft! Вставь такую функцию: function GetExePath:string; begin Result:=ExtractFilePath(paramstr(0)); end; Она вернет тебе строку с указанием пути по которому лежит программа, а потом просто добавишь ExePathstring+'images1.jpg'.

Ответ отправил: Malish (статус: Студент) Отправлен: 02.07.2005, 02:02

Отвечает: Витомский Вадим Викторович Здравствуйте, Sassoft! Аналогично и на DELPHI: PicturePath := ExtractFilePath(Application.EXEName)+'images1.jpg';

Ответ отправил: Витомский Вадим Викторович (статус: 1-ый класс) Отправлен: 04.07.2005, 09:35

Отвечает: VBA Здравствуйте, Sassoft! Вот тоже самое но на Delphi: PicturePath:=ExtractFilePath(Application.ExeName)+'Images1.jpg'; --------- Неправ вечно юзер, ибо прав всегда Админ!

Ответ отправил: VBA (статус: 5-ый класс) Отправлен: 04.07.2005, 12:31

Отвечает: streetcat Здравствуйте, Sassoft! Чтобы получить директорию программы нужен код: path := ExtractFilePath(paramstr(0)); --------- WinERROR: Keyboard not detected. Press Enter to continue

Ответ отправил: streetcat (статус: 7-ой класс) Отправлен: 04.07.2005, 19:03

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.