Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Несрабатывает передача параметра с 1-го раза , почему?

YOjik © (2006-10-11 15:49:00)
В dll:
procedure Run_filter_inv_as_main_filter(App: HWnd ;OraSession: TOraSession; KeyField, Psevdonim: shortString; var SQLText: PChar); STDCALL;
begin
Application.Handle := App;
FrmMain_Filter_Investor := TFrmMain_Filter_Investor.Create(Application);
try
FrmMain_Filter_Investor.OraSession.AssignConnect(OraSession);
FrmMain_Filter_Investor.FilterMode := fmMainFilter;
FrmMain_Filter_Investor.Psevdonim := Psevdonim;
FrmMain_Filter_Investor.SourceSQL := StrPas(SQLText);
FrmMain_Filter_Investor.ShowModal;

SQLText := PChar(FrmMain_Filter_Investor.SourceSQL + #0);
finally
FrmMain_Filter_Investor.Free;
end;
end;

То есть возвращаю SQLText
В программе:
var
sqlt: PChar;
s: string;
begin
s := OraQuery2.SQL.Text;
sqlt := PChar(s + #0);
Run_filter_inv_as_main_filter(Application.Handle, OraSession1, 'SIK', 'INV', sqlt);
s := String(sqlt);
Form1.OraQuery2.Close;
Form1.OraQuery2.SQL.Text := s;
Form1.OraQuery2.Open;
end;

В строчке s := String(sqlt); возникает exception , а вот второй раз вызова всё нормально, пробовал StrPCopy, StrPas - не помогает, как лечить?

YOjik (2006-10-12 07:21:00) [1]
Спасибо ВАМ, дейстивительно надо было выделить память, а var и #0 в конце я писал так уже от безисходности ).

Stanislav (2006-10-11 16:04:00) [2]
Нужно SQLT задать размер.

Desdechado (2006-10-11 16:03:00) [3]
1. зачем varдля SQLText: PChar ? это же и так указатель
2. не надо никаких нулей дописывать в конец, преобразование String - PChar - String и так нули вполне обрабатывает
3. зачем пытаться возвращать SQL ?
4. если уж пытаешься возвращать SQL, выдели память под него
5. в программе как описан прототип вызываемой из DLL функции?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »