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

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

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

передача данных/строк из Dll приложению [D7, WinXP]

VirEx © (2007-03-14 19:57:00)
пробовал sendmessage через WM_COPYDATA, но при копировании в memo вылеатет AV.

//из DLL
function MyFoo(var buf; len, flags: Integer): Integer; stdcall;
var
CDS:TCopyDataStruct;
Dump:array[0..$FFFF] of Char;
...
Move(Dump, buf, len);
CDS.dwData := WM_MYDATASend;
CDS.cbData := Result;
CDS.lpData := @Dump;
sendmessage(FindWindow(nil,'TMain'),WM_COPYDATA,0,Integer(@CDS));
...

//в приложении
procedure TfrmMain.messages(var Msg: TMessage);
var
s: PChar;
CDS:TCopyDataStruct;
begin
CDS:=PCopyDataStruct(Msg.LParam)^;
s:=stralloc(CDS.cbData);
CopyMemory(@s,@CDS.lpData, CDS.cbData);
memo1.Lines.Add(s); //<-- при в переменной содержимое буфера, но вылетает AV

Rouse_ (2007-03-14 22:38:00) [1]
Мдя...

function MyFoo(AHandle: THandle; var buf; len, flags: Integer): Integer; stdcall; var CDS: TCopyDataStruct; Dump: array[0..$FFFF] of Char; begin Move(buf, Dump, len); CDS.dwData := 0; CDS.cbData := SizeOf(Dump); CDS.lpData := @Dump; sendmessage(AHandle, WM_COPYDATA, 0, Integer(@CDS)); end; procedure TForm1.Button1Click(Sender: TObject); var Buff: String; begin Buff := 'qwe'; MyFoo(Handle, buff[1], Length(Buff), 0); end; procedure TForm1.WMCopyData(var Message: TWMCopyData); begin ShowMessage(PChar(Message.CopyDataStruct^.lpData)); end;

VirEx (2007-03-14 22:16:00) [2]
всё, заработался совсем :)
уже через маппинг файл:
procedure TfrmMain.messages(var Msg: TMessage);
begin
case Msg.WParam of
WM_DATASend:begin
RecData := MapViewOfFile(RecMMF, FILE_MAP_ALL_ACCESS , 0, 0, 0);
memo1.Text:=RecData; <-- AV
...

посмотрел в объявление, и убрал stdcall^)
...
type
TfrmMain = class(TForm)
...
private
{ Private declarations }
procedure messages(var Msg : TMessage); message WM_MYDATA; //stdcall - вот причина ошибки
public
{ Public declarations }
end;

и всё заработало, спасибо всем

VirEx (2007-03-14 21:57:00) [3]
что интересно, можно работать со строкой как угодно, но до момента добавления в мемо

VirEx (2007-03-14 21:34:00) [4]
более того, если оправлять текст, константы, и локальные переменные, т.е.
CDS.lpData := PChar('Test')
CDS.lpData := LocalStr
CDS.lpData := ConstStr

в главной форме текста нет =-O

VirEx (2007-03-14 21:30:00) [5]
и просто текст, и константы, и локальные переменные - одно и то же AV

begin...end (2007-03-14 21:27:00) [6]
В смысле, на CDS.lpData := PChar('Test' ).

begin...end (2007-03-14 21:25:00) [7]
> VirEx © (14.03.07 21:16) [4]

Данные в массиве Dump завершаются нулём? Для отладки можно пока заменить CDS.lpData := @Dumpна CDS.lpData := 'Test' и посмотреть, что окажется в memo.

VirEx (2007-03-14 21:16:00) [8]

> [3] begin...end © (14.03.07 21:10)

да

begin...end (2007-03-14 21:10:00) [9]
> VirEx © (14.03.07 20:51) [2]

OK, ясно. Но что происходит, если заменить три последние строчки из [0] на код из [1]? AV остаётся?

VirEx (2007-03-14 20:51:00) [10]

> [1] begin...end © (14.03.07 20:30)

CDS.cbData := len; забыл исправить

данная DLL внедряется в другую программу, и оттуда пересылает главному окну TMain данные перехваченной функции (вернее функции две, но не суть важно)

только что пробовал пересылать через FileMapping, ситуация такая же, главное приложение читает из файла строку, но при добавлении вылетает в AV

begin...end (2007-03-14 20:30:00) [11]
> VirEx © (14.03.07 19:57)

> CDS.cbData := Result;
Что в Result? Длина?

> CopyMemory(@s,@CDS.lpData, CDS.cbData);
Собачки здесь лишние. Да и StrAlloc тоже ни к чему. Memo1.Lines.Add(PChar(CDS.lpData)).

Насколько я понимаю, данная DLL НЕ загружается в АП процесса, содержащего окно TMain? Иначе, если загружается, то я не совсем понимаю, зачем здесь вообще использовать WM_COPYDATA.

Наверх

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