Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ещё раз о преобразовании string в PChar, то работает, то не работает... 
:(
    Опции темы
Ptica_Oz
Дата 14.3.2007, 09:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
в ф-цию надо передать два параметра, они должны быть типа PChar.
первый параметр получаю без проблем:
Код

var
   path: PChar;
   s : string;
...
   s := RunMethod('GetFileById',[ParentVersion.inID, fname, str]); 
   path := PChar(s);

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

procedure TfrmForm.ComboBox1Change(Sender: TObject);
var
  n : Integer;
  s : string;
begin
  n := ComboBox1.ItemIndex;
  s := ComboBox1.Items[n];
  Printer := PChar(s); //глобальная переменная типа PChar
end;

потом попробовала так:
Код

procedure TfrmForm.ComboBox1Change(Sender: TObject);
type TArrB=array of byte;
var
  n, i : Integer;
  s : string;
begin
  n := ComboBox1.ItemIndex;
  s := ComboBox1.Items[n];
  i := Length(s);
  Printer := PChar(Copy(TArrB(s),0,i));
end;

и в том и в другом случае результат не удовлетворительный  smile 
что делать?
PM MAIL   Вверх
Sunvas
Дата 14.3.2007, 09:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 28
Всего: 89
Цитата(Ptica_Oz @  14.3.2007,  09:30 Найти цитируемый пост)
 результат не удовлетворительный

Ошибку выдает? Или что?


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Ptica_Oz
Дата 14.3.2007, 09:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
нет, ошибкинет, но в функцию не передается то что надо, и при пошаговой отладке переменная  Printer не принемает нужное значение
PM MAIL   Вверх
Elfebet
Дата 14.3.2007, 10:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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

type TArrB=array of byte;


зачем это? это не нужно!, Что-то ты там много лишнего написал. Вот так должно работать
Код

procedure TfrmForm.ComboBox1Change(Sender: TObject);
begin
   Printer := PChar( ComboBox1.Items[ComboBox1.ItemIndex] );
end;


Добавлено @ 10:24 
или так
Код

Printer := PChar( ComboBox1.Text );

в зависимости какой ты поставил стиль на комбобокс


--------------------
Программист не должен всё знать... он должен знать где можно посмотреть
PM MAIL ICQ GTalk   Вверх
Ptica_Oz
Дата 14.3.2007, 10:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
написала так:
Код

n := ComboBox1.ItemIndex;  
Printer := PChar(ComboBox1.Items[n]);

не помогла...  smile 
а код с type TArrB=array of byte; я на этом форуме нашла
PM MAIL   Вверх
Yanis
Дата 14.3.2007, 10:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
Цитата(Ptica_Oz @  14.3.2007,  10:30 Найти цитируемый пост)
в ф-цию надо передать два параметра, они должны быть типа PChar.

Ну так покажи эту функцию и каким образом ты передаёшь всё добро...


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Ptica_Oz
Дата 14.3.2007, 11:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
ф-ция в длл написаная на VC++ кому интересно смотрите тему
не стоит замарачиваться куда я это хочу передать. мне просто нужна переменная типа PChar
PM MAIL   Вверх
Yanis
Дата 14.3.2007, 11:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 72
Всего: 111
PChar это обычный указатель на Char. Скорее всего требуется передать указатель именно на первый символ, что бы функция считала все символы следующие дальше за ним. 
Что может быть проще? 
Даю намёк -- @s[1] это и есть указатель на первый символ (т.е. Char), где s is string.


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Ptica_Oz
Дата 14.3.2007, 11:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
попробую, но как-то странно получается, один раз PChar преобразовал, другой раз нет...
PM MAIL   Вверх
Ptica_Oz
Дата 14.3.2007, 12:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Заработало!!! smile  в принципе инструкции те же, но кое-что переместила:
Код

var
  temp : String; // глобальная переменная
...
procedure TfrmForm.ComboBox1Change(Sender: TObject);
var
  n, i : Integer;
begin
  n := ComboBox1.ItemIndex;
  temp := ComboBox1.Items[n];
end;
...
procedure TfrmForm.cmdPrintClick(Sender: TObject);
var
   path: PChar;
   s : string;
   ...
begin
    ...
    s := RunMethod('GetFileById',[ParentVersion.inID, fname, str]);
    path := PChar(s);
    Printer := PChar(temp);
    f := ACADPrint(path, Color, Printer, '!!!', Scale); //  вызов ф-ции
end;

но всётаки почему не работал изначальный код я не поняла... одно дело когда во время разного рода "танцев с бубном" у меня обе переменные типа PChat хранили адрес одной и тойже ячейки... но ведь при пошаговой отладки, когда я отрабатывала событие ComboBox'а второй переменной не существовало в природе... странно как-то... smile 
PM MAIL   Вверх
Sunvas
Дата 14.3.2007, 12:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 28
Всего: 89
Ptica_Oz, почитай о работе с указателями: уверен, найдешь ответ на свой вопрос.


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
MetalFan
Дата 14.3.2007, 13:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
string, как известно, хитрый тип)

Цитата(Ptica_Oz @  14.3.2007,  09:30 Найти цитируемый пост)
procedure TfrmForm.ComboBox1Change(Sender: TObject);
var
  n : Integer;
  s : string; <-локальная переменная
begin
  n := ComboBox1.ItemIndex;
  s := ComboBox1.Items[n]; <- выделили память под  s, скопировали значение строки
  Printer := PChar(s); <- "запомнили" указатель на первый символ локальной переменной s
end;<- строка s перестает существовать, указатель на первый символ становиться не валидным.

вышеприведенный код
Цитата(Ptica_Oz @  14.3.2007,  12:21 Найти цитируемый пост)
var
  temp : String; // глобальная переменная
...
procedure TfrmForm.ComboBox1Change(Sender: TObject);
var
  n, i : Integer;
begin
  n := ComboBox1.ItemIndex;
  temp := ComboBox1.Items[n];
end;
...
procedure TfrmForm.cmdPrintClick(Sender: TObject);
var
   path: PChar;
   s : string;
   ...
begin
    ...
    s := RunMethod('GetFileById',[ParentVersion.inID, fname, str]);
    path := PChar(s);
    Printer := PChar(temp);
    f := ACADPrint(path, Color, Printer, '!!!', Scale); //  вызов ф-ции
end;

я бы переписал проще:

Код

procedure TfrmForm.cmdPrintClick(Sender: TObject);
var
   path: string;
   printer : string;
   ...
begin
    ...
    path := RunMethod('GetFileById',[ParentVersion.inID, fname, str]);
    Printer := ComboBox1.Items[ComboBox1.ItemIndex];
    f := ACADPrint(PChar(path), Color, PChar(Printer), '!!!', Scale); //  вызов ф-ции
end;


Это сообщение отредактировал(а) MetalFan - 14.3.2007, 13:12


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0900 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.