VPF::Поиск в папке - Форум программистов

namra

Дата 24.2.2008, 00:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Ошибка заключается в выводе html в браузере, я так понял он не может определить путь.

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Search, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    GroupBox1: TGroupBox;
    ListBox1: TListBox;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    WebBrowser1: TWebBrowser;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var flags: DWORD;
begin
  flags := 0;
  if not SearchInFolder('C:\Documents and Settings\User\Мои документы\Delphi\Проба', Edit2.Text,flags,
                        ListBox1.Items)
  then
    label3.Caption := 'Поиск не дал результатов'
  else
    label3.Caption := 'Найдено объектов: ' + IntToStr(ListBox1.Count);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.Navigate(GetcurrentDir+listbox1.Items[listbox1.itemindex+1]);

end;

end.

M
Alexeis

Модератор: используйте подсветку кода.

Это сообщение отредактировал(а) Alexeis - 24.2.2008, 21:49

VICTAR

Дата 24.2.2008, 00:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

1) Перед использованием GetCurrentDir неплохо бы установить SetCurrentDir
2) GetcurrentDir возвращает путь без слеша на конце
3) Лучше GetcurrentDir заменить на ExtractFilePath(ParamStr(0))

namra

Дата 24.2.2008, 11:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

Спасибо VICTAR за помощь все работает smile

lukas

Дата 24.2.2008, 18:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

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

браузер в делфи иногда ругается на то что идут 2 слеша подряд... и не находит такой путь... так что нужно заменить все \\ на \

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

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