Блог

Я написал некоторый код на Delphi / Pascal для загрузки файла на веб-сайт. Чтобы выполнить это, я запускаю приведенный ниже код в потоке непосредственно перед нажатием кнопки загрузки. Поток ищет диалоговое окно загрузки файла Windows и заполняет его.

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

Например, я загружаю «c:uploads10123.pdf «, Windows (иногда) усекает имя файла до «123.pdf», которое не существует ни в одном каталоге, указанном по умолчанию в диалоговом окне загрузки, поэтому загрузка завершается неудачно.

Какое-то время это сводило меня с ума. Может кто-нибудь сказать мне, как это исправить?

   for Looper := 1 to 2 do
  begin
    UploadDialogHandle := FindWindow('#32770', 'Choose File to Upload');
    if UploadDialogHandle = 0 then
      Sleep(100)
    else
    begin
      SetFileUploadDialogPosition(UploadDialogHandle);
      break;
    end;
  end;
  if UploadDialogHandle = 0 then
    exit;

  for Looper := 1 to 1 do
  begin
    // Find the child ComboBoxEx32 window
    UploadDialogFileEditHandle := FindWindowEx(FileUploadDialogHandle, 0,
      'ComboBoxEx32', '');
    if UploadDialogFileEditHandle = 0 then
      Sleep(100)
    else
      break;
  end;

  if UploadDialogFileEditHandle = 0 then
    exit;

  for Looper := 1 to 1 do
  begin
    // Find the child ComboBox window
    UploadDialogFileEditHandle := FindWindowEx(UploadDialogFileEditHandle, 0,
      'ComboBox', '');
    if UploadDialogFileEditHandle = 0 then
      Sleep(100)
    else
      break;
  end;
  for Looper := 1 to 1 do
  begin
    // Find the child Edit window
    UploadDialogFileEditHandle := FindWindowEx(UploadDialogFileEditHandle, 0,
      'Edit', '');
    if UploadDialogFileEditHandle = 0 then
      Sleep(100)
    else
      break;
  end;

  if UploadDialogFileEditHandle = 0 then
    exit;

  Result := False;
  if (UploadDialogHandle = 0) or (UploadDialogFileEditHandle = 0) or
    (FileUploadButtonHandle = 0) then
    exit;
  StrPCopy(aUploadFileName, FileNameString);
  SendMessage(UploadDialogFileEditHandle, WM_SETTEXT, SizeOf(aUploadFileName),
    Integer(@aUploadFileName));
  Sleep(200);
  SendMessage(UploadDialogFileEditHandle, WM_GETTEXT, SizeOf(FileEditContents),
    Integer(@FileEditContents));

  if (StrComp(aUploadFileName, FileEditContents) = 0) then
    SendMessage(FileUploadButtonHandle, BM_CLICK, 0, 0);