[borockov]

Привет друзья. Подскажите пожалуйста в решений одного вопроса. Мне нужно реализовать такой момент, к примеру я скопировал адрес сайта в буфер, и сразу после этого он должен попасть в edit1. В принципе я могу работать с буфером, я не могу понять как сделать так что бы если в буфер у нас скопирован адрес сайта, что бы он попадал в edit1, а если какой нибудь другой текст, либо какая нибудь другая информация, находится в буфере то, что бы это как то пропускалось, не попадала в edit1. Заранее спасибо

[borockov]

Нашел вот такую функцию на форуме

Код:

function GetClipboardText(Wnd: HWND; var Str: string): Boolean;
var
  hData: HGlobal;
begin
  Result := True;
  if OpenClipboard(Wnd) then
  begin
    try
      hData := GetClipboardData(CF_TEXT);
      if hData <> 0 then
      begin
        try
          SetString(Str, PChar(GlobalLock(hData)), GlobalSize(hData));
        finally
          GlobalUnlock(hData);
        end;
      end
      else
        Result := False;
      Str := PChar(@Str[1]);
    finally
      CloseClipboard;
    end;
  end
  else
    Result := False;
end;

Код:

procedure TForm1.Button5Click(Sender: TObject);
var
  Str: string;
begin
  GetClipboardText(Handle, Str);
  ShowMessage(Str)
end;
end.

Все работает норм, но вот вышеописанная проблема она как заноза, друзья, а с помощью функций POS можно как то посмотреть типа если в буфере содержится "http://" то заносить в edit1 а если нет то пропускать?

[cotseec]

TClipBoard в помощь

а с помощью функций POS можно как то посмотреть типа если в буфере содержится "http://" то заносить в edit1 а если нет то пропускать?

если в буфере обмена есть ссылка, то

Код:

if ClipBoard.HasFormat(CF_TEXT) and (Pos('http://',ClipBoard.AsText)>0) then

(правда это может быть не всегда ссылка, например, в тексте цитаты содержится "http://", но это не ссылка)

[borockov]

Ну это в принципе не проблема)) спасибо за код)))