[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

2slesh как я уже говорил что BlockInput работает до первого нажатия на Cntrl+Alt+Del к тому же он не блокирует функциональные клавиши типа яркость громкость вперед назад и.т.д

 

Как организовать drag n drop файлов из єксплорера в ListBox ?

 

Помогите пожалуйста правельно вставить Edit

Я тут допустил ошибку!

При компиляции такая ошибка!

 

ты сам хоть понял что ты написал в коде? Сначало учи основы синтаксиса а потом начинай кодить.

SetCursorPos(strtoint(edit1.text), strtoint(edit2.text));

 

_nic

Code:

uses ShellAPI;
...

  public
    procedure DropFiles(var msg: TWMDropFiles); message WM_DROPFILES;
...

procedure TForm1.DropFiles(var msg: TWMDropFiles);
var
  drop, count: THandle;
  i: Integer;
  buf: array[0..MAX_PATH-1] of Char;
begin
  drop := msg.Drop;
  //[I]получаем количество перетаскиваемых объектов[/I]
  count := DragQueryFile(drop, $ffffffff, nil, 0);
  for i := 0 to count-1 do
  begin
    //[I]получаем имя i-того файла[/I]
    DragQueryFile(drop, i, buf, MAX_PATH);
    //[I]добавляем в листбокс только файлы (отсееваем папки)[/I]
    if FileExists(buf) then ListBox1.Items.Add(buf);
  end;
  DragFinish(drop);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(Handle, True);
end;

 

снова я)
Вопросик:
Вообшем у меня програма отправляет запрос на авторизацию на сервер... вопрос в том как обработать ответ? тоесть как узнать что авторизацыя удалась или нет? думал проанализировать хтлм код на присутствие ссылки типа /profile.php=id и т.д. но может есть попроще способ? если да по пожалуйста напишыте код

(реч идет о вк)

 

ты бы язык русский выучил сначала.

 

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

Code:

function DownloadFile(const Url: string): string; 
var 
  NetHandle: HINTERNET; 
  UrlHandle: HINTERNET; 
  Buffer: array[0..1024] of char; 
  BytesRead: cardinal; 
begin 
  Result := ''; 
  NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); 

  if Assigned(NetHandle) then 
    begin 

    UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0); 

    if Assigned(UrlHandle) then 
      { UrlHandle правильный? Начинаем загрузку } 
      begin 
      FillChar(Buffer, SizeOf(Buffer), 0); 
      repeat 
        Result := Result + Buffer; 
        FillChar(Buffer, SizeOf(Buffer), 0); 
        InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead); 
      until BytesRead = 0; 
      InternetCloseHandle(UrlHandle); 
      end 
    else 
      begin 
      { UrlHandle неправильный. Генерируем исключительную ситуацию. } 
      raise Exception.CreateFmt('Cannot open URL %s', [Url]); 
      end; 

    InternetCloseHandle(NetHandle); 
    end 
  else 
    { NetHandle недопустимый. Генерируем исключительную ситуацию } 
    raise Exception.Create('Unable to initialize Wininet'); 
end;

 

1) Учи язык
2)Пользуй Post запросы при авторизации, в ответах от них есть информация,-авторизировался или нет.

 

Можна пример кода?

 

Люди, которые пишут на Delphi, а где вы берёте среду разработки? Существуют вообще бесплатные IDE ???

 

Вопрос по компоненту TreeView... Как при нажатии на кнопку сделать так чтобы выводились в memo элементы (каталоги) определенного дерева

Такой вариант не идет:

Code:

var
  i : Integer;
begin
  for i:=1 to TreeView1.Items[0].Count do
    Memo1.Lines.Add(TreeView1.Items[i].Text);

Такой вариант кода (как выше) мне не подходит, так как выводится и элементы дерев (именно содержание дерев) указанного дерева из которого извлекаем

 

Code:

const
  level = 0;
var
  i : Integer;
begin
  for i := 0 to TreeView1.Items.Count-1 do
    if TreeView1.Items[i].Level = level then
      Memo1.Lines.Add(TreeView1.Items[i].Text);
end;

Константа level - это уровень вложенности деревьев.

 

Не то, выводятся элементы определенного уровня деревьев а не определенного дерева

 

Code:

const
  n = 1;
var
  i : Integer;
begin
  for i := 0 to  TreeView1.Items[n].Count-1 do
    Memo1.Lines.Add(TreeView1.Items[n].Item[i].Text);
end;

n - номер дерева

 

Delphi
Как строку в hex перевести ?

 

Sin3v, так?

Code:

  function   StrToHex(AStr:   string):   string;   
  var   
  I:   Integer;   
  Tmp:   string;   
  begin   
      Result   :=   '';   
      For   I   :=   1   to   Length(AStr)   do   
      begin   
          Result   :=   Result   +   Format('%2x',   [Byte(AStr[I])]);   
      end;   
      I   :=   Pos('   ',   Result);   
      While   I   <>   0   do   
      begin   
          Result[I]   :=   '0';   
          I   :=   Pos('   ',   Result);   
      end;   
  end;   
    
  function   TransChar(AChar:   Char):   Integer;   
  begin   
  if   AChar   in   ['0'..'9']   then   
  Result   :=   Ord(AChar)   -   Ord('0')   
  else   
  Result   :=   10   +   Ord(AChar)   -   Ord('A');   
  end;   
    
    
  function   HexToStr(AStr:   string):   string;   
  var   
      I:   Integer;   
      CharValue:   Word;   
  begin   
      Result   :=   '';   
      For   I   :=   1   to   Trunc(Length(Astr)/2)   do   
      begin   
          Result   :=   Result   +   '   ';   
          CharValue   :=   TransChar(AStr[2*I-1])*16   +   TransChar(AStr[2*I]);   
          Result[I]   :=   Char(CharValue);   
      end;   
  end;

 

Code:

function StringtoHex(Data: string): string;
var
  i, i2: Integer;
  s: string;
begin
  i2 := 1;
  for i := 1 to Length(Data) do
  begin
    Inc(i2);
    if i2 = 2 then
    begin
      s  := s + ' ';
      i2 := 1;
    end;
    s := s + IntToHex(Ord(Data[i]), 2);
  end;
  Result := s;
end;

 

Здравствуйте. Нужно узнать количество вхождений подстроки в строку. Есть ли для этого в Delphi специальная отдельная функция?
И ещё. Есть ли в Delphi встроеная функция на подобие explode() или split()?

UPDATE: Функция типа split найдена - ExtractStrings

 

Подскажите, пожалуйса, как можно прочитать или скопировать файл открытый монопольно другим приложениям?
OpenReadOnly или fmSharedDenyNone не предлагать =)