Drag&Drop не передается полученный путь к файлу.

[vladonn]

Здравствуйте, помогите решить такой вопрос: При попытке записать путь файла что перемещается на форму, в RichEdit1 вылазит такая ошибка(13.jpg).
Не помогает и передача имени через функцию или в глобальную переменную, одно и тоже! Что делать? Что пробовать?
Unit1.h

private:    // User declarations
    void __fastcall WmDropFiles(TWMDropFiles& Message);
public:     // User declarations
    __fastcall TForm4(TComponent* Owner);
    BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_DROPFILES, TWMDropFiles, WmDropFiles)
    END_MESSAGE_MAP(TForm);

Unit1.cpp

void __fastcall TForm4::FormCreate(TObject *Sender)
{
DragAcceptFiles(Form4->Handle,True);
}
 
void __fastcall TForm4::WmDropFiles(TWMDropFiles& Message)
{
wchar_t *chFileName;
int Count;
Count = DragQueryFile(HDROP (Message.Drop), 0xFFFFFFFF,chFileName,MAXPATH); // число перетащенных файлов
for (int i=0;i<Count;i++)//цикл по файлам
  {
   DragQueryFile(HDROP (Message.Drop),i,chFileName,MAXPATH); // запрос имени файла
   RichEdit1->Lines->Add(chFileName);
  }
DragFinish(HDROP (Message.Drop)); // завершение перетаскивания
 
  }

[microbit]

wchar_t *chFileName; может тут нужна память выделить.
а если так:

HDROP dhandle = (HDROP)Msg.Drop;
WCHAR fName[MAXPATH];
int filenum = DragQueryFile(dhandle,-1,NULL,NULL);
for (int i = 0 ; i < filenum ; i++ )
{
	DragQueryFile(dhandle,i,fName,MAXPATH); 
}

не проверял.

[Игорь С++]

vladonn Вы на кибере создали тему в разделе WinAPI вам даже намекнули , что где тему создали , получили такой же ответ , но всё равно продолжаете создавать не в билдере , а в WinAPI .

[vladonn]

void __fastcall TForm4::WmDropFiles(TWMDropFiles& Message)
{
char *chFileName = "";
//AnsiString chFileName;
int Count;
Count = DragQueryFileA(HDROP (Message.Drop), 0xFFFFFFFF, chFileName, MAX_PATH);
//Count = DragQueryFile(HDROP (Message.Drop), 0xFFFFFFFF,chFileName.c_str(),MAXPATH);
for (int i=0;i<Count;i++)
  {
   if ( DragQueryFileA(HDROP (Message.Drop), i, chFileName, MAX_PATH) != 0 )
   {
		//MessageBox( Form4->Handle, "Its allright", "good", MB_OK);
   } else
   {
		//MessageBox( Form4->Handle, "Dont good, error", "error", MB_OK);
		chFileName = "Error";
   }


	for (int j=0; j < strlen( chFileName ); j++){
		RichEdit1->Lines->Strings[i] = RichEdit1->Lines->Strings[i] + chFileName[j];
		//RichEdit1->Lines->Strings[i] = chFileName;
		abc = chFileName;
   }
  //Form4->Caption =  chFileName;
  }
DragFinish(HDROP (Message.Drop));

  }

Так работает.