VPF::ShellExecute и PChar - Форум программистов

microo10

Дата 18.6.2012, 11:34 (ссылка)

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

Загрузка ...

Шустрый

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

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

Помогите,нужно из файла получить ссылку и открыть ее в браузере. Для получения ссылки из файла я использовал TStringList :

Код


f:=TStringList.Create;
  f.LoadFromFile('text.txt');
  //вытаскиваем нужные строки
  Form1.b1.Caption:=f[1];
  Form1.b2.Caption:=f[3];
  Form1.b3.Caption:=f[5];
  Form1.b4.Caption:=f[7];

Побывал вот такой способ:

Код


ShellExecute(0, 'open',PChar(f.Strings[1]), nil, nil, SW_SHOW);

Но открывалась не ссылка,а директория исполняемого файла
Help me please smile

CynicRus

Дата 18.6.2012, 12:03 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


ShellExecute(Application.Handle, 'open', PChar(f.Strings[1]), nil, nil, SW_NORMAL);

microo10

Дата 18.6.2012, 12:37 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(CynicRus @ 18.6.2012, 12:03

)

ShellExecute(Application.Handle, 'open', PChar(f.Strings[1]), nil, nil, SW_NORMAL);

НЕ помогло опять папка с файлом открывается =(

CynicRus

Дата 18.6.2012, 15:02 (ссылка)

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

Загрузка ...

Бывалый

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

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

Покажи, что у тебя лежит в f.Strings[1].

microo10

Дата 19.6.2012, 13:16 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(CynicRus @ 18.6.2012, 15:02)

Покажи, что у тебя лежит в f.Strings[1].

Я указывал не f.Strings[1] а f.Strings[371] в текстовой документе это строка 370 по идее http://rghost.ru/38254591 вот.

Beltar

Дата 19.6.2012, 13:40 (ссылка)

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

Загрузка ...

Опытный

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

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

По идее, или по факту? Так сложно посмотреть в отладчике чему равны переменные? И еще, а почему такой адрес вообще должен где-то открываться помимо Windows Explorer? Это врод не html-файл. Правильно видимо будет запустить браузер (не скажу, как определить браузер по умолчанию, это другой вопрос) и уже ему передать линк, как параметр.

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile

(с) я, хотя может и нет
Пищущий на C++ мужик. Даже если это мужик сидит в написанном на Delphi и жрущем паскалевскую библиотеку билдере.

Akella

Дата 19.6.2012, 14:53 (ссылка)

(голосов:4)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Используй PAnsiChar

Добавлено через 35 секунд
или PWideChar.

Добавлено через 1 минуту и 11 секунд
Ты же скрываешь версию IDE.
Вот пример для юникодной версии Delphi

Код

ShellExecute(Application.ActiveFormHandle, 'open', PWideChar(sUserDocsPathToSend), nil, PWideChar(sUserDocsPathToSend), SW_SHOWNORMAL);

Keeper89

Дата 19.6.2012, 14:56 (ссылка)

(голосов:3)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Цитата(Akella @ 19.6.2012, 14:53

)

Вот пример для юникодной версии Delphi

Независимо от версии, там должно быть PChar - сама нужную версию (A или W) подцепит.

Это сообщение отредактировал(а) Keeper89 - 19.6.2012, 14:57

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Akella

Дата 19.6.2012, 15:19 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Значит у него путь неправильный и/или предпоследний параметр не заполнен - dir.

microo10

Дата 19.6.2012, 20:22 (ссылка)

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

Загрузка ...

Шустрый

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

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

Если я просто ссылку указываю то все работает,а если данным способом то только открывает корневую папку программы(((

Keeper89

Дата 19.6.2012, 21:57 (ссылка)

(голосов:4)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

microo10,
ты потомственный партизан или просто не читаешь что пишут?
Приведи, что лежит в f.Strings[1]

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

microo10

Дата 23.6.2012, 18:06 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

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

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

Цитата(Keeper89 @ 19.6.2012, 21:57)

microo10,
ты потомственный партизан или просто не читаешь что пишут?
Приведи, что лежит в f.Strings[1]

Я уже ответил! Ссылка там:

Код


http://rghost.ru/38254591

Keeper89

Дата 23.6.2012, 18:46 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

microo10, да пойми, что никто не будет тут весь проект твой скачивать (а уж тем более собирать и смотреть, что же там отладчик покажет). Отослав всех туда, вероятность получения ответа уже как видишь приблизилась к 0. Приведи строчку тут, и она стремительно возрастет.

Это сообщение отредактировал(а) Keeper89 - 23.6.2012, 18:47

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Чучмек

Дата 23.6.2012, 19:13 (ссылка)

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

Загрузка ...

НЭТ БИЛЭТ

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

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

microo10, Тебе только кажется, что там

Цитата(microo10 @ 19.6.2012, 13:16

)

http://rghost.ru/38254591

, на самом деле там пустая строка

Цитата(microo10 @ 19.6.2012, 13:16

)

Я указывал не f.Strings[1] а f.Strings[371] в текстовой документе это строка 370

На самом деле f.Strings[370] это 371 строка в текстового документа

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

умную мысль держи при себе, а дурной - поделись с другими

microo10

Дата 23.6.2012, 22:36 (ссылка)

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

Загрузка ...

Шустрый

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

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

проект

Присоединённый файл ( Кол-во скачиваний: 5 )

HackBase.rar 229,41 Kb

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