RusFAQ.ru: Программирование на Delphi

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 176
от 10.07.2005, 07:00

Вопрос № 22.999

Здравствуйте. После различных экспирементов программы перестали реагировать на посылку сообщения о нажатие или отпускание клавиши Shift. Вместо этого после посылки нескольких сообщений (см. приложение) , если нажать правый шифт, возникает эффект залипания этой самой клавиши, отключается который после нажатия левого шифта. Подскажите пожалуйста как от этого избавиться. Спасибо. Приложение: {Как минимум один раз данный код выполнялся без проблем} keybd_event(VK_SHIFT,0,0,0);{Не срабатывает} for i:=1 to C do begin keybd_event(VK_DOWN,0,0,0);{Текст не выделяется} keybd_event(VK_DOWN,0,KEYEVENTF_KEYUP,0); end; keybd_event(VK_SHIFT,0,KEYEVENTF_KEYUP,0); {Копирование текста в буффер} keybd_event(VK_CONTROL,0,0,0); keybd_event($43,0,0,0); keybd_event($43,0,KEYEVENTF_KEYUP,0); keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0); {-------------------------------------------------------------------} {Изменение раскладки происходит нормально} keybd_event(VK_MENU,0,0,0); keybd_event(VK_SHIFT,0,0,0); keybd_event(VK_SHIFT,0,KEYEVENTF_KEYUP,0); keybd_event(VK_MENU,0,KEYEVENTF_KEYUP,0);

Отправлен: 04.07.2005, 08:04 Вопрос задал: Ivaan (статус: Посетитель) Всего ответов отправлено: 1

Отвечает: Ерёмин Андрей Здравствуйте, Ivaan! Опять-таки можно сделать по-другому. Откройте любой текстовый редактор, нажмите [Shift], и, не отпуская его, [Вниз]. Текст выделится. После этого отпустите обе клавиши. Затем снова проделайте вышеописанные действия. Видите? Текст продолжает выделяться, т.е. нет необходимости всё время удерживать [Shift]. Отсюда совет: for i:=1 to C do begin keybd_event(VK_SHIFT,0,0,0); keybd_event(VK_DOWN,0,0,0);{Текст не выделяется} keybd_event(VK_DOWN,0,KEYEVENTF_KEYUP,0); keybd_event(VK_SHIFT,0,KEYEVENTF_KEYUP,0); end; Возможно, так будет работать. Ещё проблема может быть в том, что вы делаете это в цикле. Это не есть хорошо. Кроме того, попробуйте в цикл добавить функцию Yield(). Возможно, будет нормально работать. Удачи! --------- Если б не было бы глюка, жизнь была б такая скyка...

Ответ отправил: Ерёмин Андрей (статус: Студент) Отправлен: 04.07.2005, 11:25

Вопрос № 23.012

Уважаемые эксперты, у меня возникло несколько вопросов: 1.Как сделать,чтобы после нажатия кнопки производилось подключение к интернет,а после отправки сообщения на e-mail отключение? 2.На форме расположен MediaPlayer,который воспроизводит файл.Как зациклить воспроизведение? Заранее спасибо. Приложение: procedure TForm1.Button1Click(Sender: TObject); var m: TIdMessage; begin m:=TIdMessage.Create(Form1); m.Body.Add(' Здравствуйте'); m.Body.Add(Label27.Caption +' '+ Edit26.Text ); m.Body.Add(Label30.Caption +' '+ Edit27.Text ); m.Body.Add(Label13.Caption +' '+Edit18.Text ); m.Body.Add(Label28.Caption); m.Body.Add( Label5.Caption +' '+ Edit13.Text); m.Body.Add(Label4.Caption + ' '+ Edit11.Text); //настройки SMTP m.From.Text:='<do@mail.ru>';//отправитель m.Recipients.Add; m.Recipients.Items[0].Text:='"Vo"<d2@mail.ru>';//получатель m.Subject:=' данные ' ;//тема IdSMTP1.AuthenticationType:=atLogin; IdSMTP1.Host:='SMTP.mail.ru.'; IdSMTP1.Username:='do'; IdSMTP1.Password:='111'; IdSMTP1.Connect(); if IdSMTP1.Connected then begin IdSMTP1.Send(m); end; IdSMTP1.Disconnect; end; procedure TForm1.FormCreate(Sender: TObject); begin Mediaplayer1.FileName:='1.mp3' ; Mediaplayer1.Open; Mediaplayer1.play; end;

Отправлен: 04.07.2005, 10:57 Вопрос задал: Dovgotko (статус: Посетитель) Всего ответов отправлено: 4

Отвечает: Ерёмин Андрей Здравствуйте, Dovgotko Vadym Vit.! 2) MediaPlayer1.OnNotify: With MediaPlayer1 Do Begin If NotifyValue = nvSuccessful Then Play; End; --------- Если б не было бы глюка, жизнь была б такая скyка...

Ответ отправил: Ерёмин Андрей (статус: Студент) Отправлен: 04.07.2005, 19:23

Отвечает: Delphin Здравствуйте, Dovgotko Vadym Vit.! 2. У MediaPlayer'a есть свойство OnStop так вот на нем пиши уже Mediaplayer1.play; 1. Используй RasAPI. Справки в интернете как грязи. --------- Обращаться в ICQ: 77778851 или E-Mail: delphinster@gmail.com

Ответ отправил: Delphin (статус: 7-ой класс) Отправлен: 04.07.2005, 21:10

Отвечает: sir henry Здравствуйте, Dovgotko Vadym Vit.! По косвенным признакам (присутствие слов "подключение" и "отключение") у Вас стоит Dial-up. :) Если у Вас одно-единственное соединение в Remote Access, то оно автоматом выбирется для подключения. Для выбора подключения можно использовать функцию, приведеную в приложении (взято с сайта delphiworld.narod.ru). Приложение: function RasMakeDialupConnection(const EntryName: string): Boolean; var dwRet: Dword; DialParams: TRasDialParams; hRas: HRASCONN; bPwd: Boolean; // проверка пароля begin uLastErr := 0; // Здесь будет код ошибки FillChar(DialParams, SizeOf(DialParams), 0); DialParams.dwSize := SizeOf(DialParams); StrPLCopy(@(DialParams.szEntryName[0]), EntryName, SizeOf(DialParams.szEntryName)); hRas := 0; // нужно присвоить 0 до вызова RasDial // Try to retrieve user name/passowrd. // We continue even if RasGetEntryDialParams returns error, because // in next call RasDial will just try with empty user name/password bPwd := False; RasGetEntryDialParams(nil, @DialParams, bPwd); // Call RAS API. In this particular case RasDial will not return until // the connections is established or failed to establish. dwRet := RasDial(nil, nil, // no dial extensions, default phonebook @DialParams, 0, // ignored here nil, // do not use callback - the call is synch hRas); // receives connection handle Result := dwRet = 0; // Connection failed... if not Result then begin // In some cases hRas may be non-zero and the connection port // is still opened. It is a Windows semi-bug/semi-feature. // So I must try to close if hRas <> 0 then RasHangupConnection(hRas); // RasHangup may reset uLastErr, but we need the value // returned from RasDial uLastErr := dwRet; end; end;

Ответ отправил: sir henry (статус: Профессор) Отправлен: 05.07.2005, 05:19

Отвечает: Tsechoev Bagaudin Давай предупредим события, и купим тебе резиновую бабу вместо жены. Ты хотя в чем-то разбираешься, я имею в виду в том что пишешь?! Офигеть.!!!! --------- Есть только одно зло - невежество, и только одно благо - знания

Ответ отправил: Tsechoev Bagaudin (статус: 6-ой класс) Отправлен: 08.07.2005, 23:25 Оценка за ответ: 1 Комментарий оценки: Да пошёл ты! Тоже мне умник нашёлся.Я уже разобрался ,нормальные люди помогли.Самому ,наверно ,тоже не приятно такие ответы получать.

Вопрос № 23.025

добрый день! вопрос про то, как достать информацию из буфера в программе на делфи. у меня программа копирует в буфер обмена какую-то информацию. Я хочу эту информацию взять из буфера и записать её в файл (свой файл), т.е. хочу получить данные из буфера просто в виде куска информации, последовательности байт. Я пробовал вставлять в компонент MEMO, чтобы получить информацию как текст, но ничего не выходит. пробовал использовать компонент TClipboard, но при вызове метода OPEN прога вываливается с ошибкой. Короче мне нужно взять кусок данных из Clipboard'а (а потом ещё надо будет их запихнуть обратно). Пожалуйста, посоветуйте что-нибудь. P.s. буду особенно рад решениям на winapi.

Отправлен: 04.07.2005, 13:46 Вопрос задал: Вiктор (статус: 3-ий класс) Всего ответов отправлено: 5

Отвечает: Gin Здравствуйте, Вiктор! Делюсь примерами - сам не пробовал. С Уважением, Gin. Приложение: Этот пример использует картинку, кнопку и компонент shape на форме. При нажатии кнопки изображение формы сохраняется в в переменной FormImage и копируется в буфер обмена (Clipboard). Затем изображение формы копируется обратно в компонент картинки, тем самым создавая интересный эффект, особенно, если кнопку понажимать несколько раз. procedure TForm1.Button1Click(Sender: TObject); var FormImage: TBitmap; begin FormImage := GetFormImage; try Clipboard.Assign(FormImage); Image1.Picture.Assign(Clipboard); finally FormImage.Free; end; end; procedure TForm1.FormCreate(Sender: TObject); begin Shape1.Shape := stEllipse; Shape1.Brush.Color := clLime; Image1.Stretch := True; end; // Копируем содержимое экрана в буфер обмена: procedure CopyScreenToClipboard; var dx,dy: integer; hSourcDC, hDestDC, hBM, hbmOld: THandle; begin dx := screen.width; dy := screen.height; hSourcDC := CreateDC('DISPLAY', nil, nil, nil); hDestDC := CreateCompatibleDC(hSourcDC); hBM := CreateCompatibleBitmap(hSourcDC, dx, dy); hbmold:= SelectObject(hDestDC, hBM); BitBlt(hDestDC, 0, 0, dx, dy, hSourcDC, 0, 0, SRCCopy); OpenClipBoard(form1.handle); EmptyClipBoard; SetClipBoardData(CF_Bitmap, hBM); CloseClipBoard; SelectObject(hDestDC,hbmold); DeleteObject(hbm); DeleteDC(hDestDC); DeleteDC(hSourcDC); end; // текст из буфера без использования модуля Clipbrd 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; Пример использования: function TForm1.Button1Click(Sender: TObject) var Str: string; begin GetClipboardText(Handle, Str); ShowMessage(Str); end;

Ответ отправил: Gin (статус: Студент) Отправлен: 04.07.2005, 14:54

Отвечает: Jadd Здравствуйте, Вiктор! Вот пример из дельфового хелпа: var MyHandle: THandle; TextPtr: PChar; MyString: string; begin ClipBoard.Open; try MyHandle := Clipboard.GetAsHandle(CF_TEXT); TextPtr := GlobalLock(MyHandle); MyString := StrPas(TextPtr); GlobalUnlock(MyHandle); finally Clipboard.Close; end; end; Один только нюанс. Он у теюя падал при Open потому что ты его не создал. Т.е. прежде, чем его юзать, его нужно создать. Вот так: Clipboard := TClipboard.Create; Насчет WinAPI. Нет смысла лезть туда, если есть такой вот класс, который реализует мощь WINAPI. Но если уж интересно, тогда просто открой сырцы этого класса. --------- Если в сердце дверь закрыта, нужно в печень постучаться

Ответ отправил: Jadd (статус: Студент) Отправлен: 04.07.2005, 15:56 Оценка за ответ: 5 Комментарий оценки: спасибо, действительно забыл вызвать Create. Но: он у меня и на Create тоже вылетает... обидно... Наверно что-то невпорядке с делфи, а может не так вызывал...

Отвечает: Ерёмин Андрей Здравствуйте, Вiктор! Чтобы вставить в текущую позицию TMemo содержимое буфера обмена, следует просто вызвать процедуру PasteFromClipboard: Memo1.PasteFromClipboard; Чтобы работать с буфером обмена, необходимо подключить модуль Clipbrd.pas и объявить переменную типа TClipboard. Получить текстовые данные можно с помощью функции AsText. Записать их - с помощью SetTextBuf. Кроме того, можно задавать различный формат данных (текст, графика, мультимедиа и т.д.). API-функции для работы с буфером обмена: SetClipboardData, SetClipboardViewer, RegisterClipboardFormat, GetClipboardData, GetClipboardFormatName, GetClipboardOwner, GetClipboardViewer. Один из примеров работы с буфером обмена в приложении. В результате в Memo1 появится текст, который был в буфере обмена, а в буфер запишется заголовок формы Form1. Удачи! Приложение: uses Clipbrd; procedure TForm1.Button1Click(Sender: TObject); Var C: TClipboard; begin C:=TClipboard.Create; Memo1.Text:=C.AsText; C.SetTextBuf(PChar(Form1.Caption)); C.Free; end; --------- Если б не было бы глюка, жизнь была б такая скyка...

Ответ отправил: Ерёмин Андрей (статус: Студент) Отправлен: 04.07.2005, 19:09 Оценка за ответ: 5 Комментарий оценки: спасибо. А вот я тоже объявил C: TClipboard; потом вызвал c.create; и прога вылетела с ошибкой. Но меня теперь интересует не это, а другое. Я перспрошу в другом вопросе.

Отвечает: Delphin Здравствуйте, Вiктор! Если просто как текст то смотри приложение 1. Выдернул из своего проекта. Если регестрация своих данных нужна то выдернул из сети смотри приложение 2. Если работать к с массивом байт то выдернул из сети смотри приложение 3. Приложение: Приложение 1: { Копировать в буфер обмена } Procedure CopyStringToClipboard(s: string); Var hg:THandle; P:PChar; begin hg:=GlobalAlloc(GMEM_DDESHARE or GMEM_MOVEABLE,Length(s)+1); P:=GlobalLock(hg); StrPCopy(P,s); GlobalUnlock(hg); OpenClipboard(Application.Handle); SetClipboardData(CF_TEXT,hg); CloseClipboard; GlobalFree(hg); end; {------------------------------------------------------------------------------} { Kопировать из буфера обмена } Function CopyStringFromClipboard:String; var gh:Cardinal; begin OpenClipboard(Application.Handle); gh := GetClipboardData(CF_TEXT); StrPCopy(PChar(Result),String(GetClipboardData(CF_TEXT))); CloseClipboard; GlobalFree(gh); end; Приложение 2: // The TClipboard provides easy clipboard access. But what if you // want to add (several) custom defined items to the clipboard? // For all actions is the unit Clipboard required. uses Clipboard; // First you have to register your own ClipBoard format // Zuerst registrieren wir unser eigenes ClipBoard Format const MyClipboardFormatStr = 'MyData'; var MyClpFormat: integer; MyClpFormat := RegisterClipboardFormat(MyClipboardFormatStr); { The variable SLMClpFormat will contain a unique format handle for your own clipboard format. Die Variable SLMClpFormat enthalt ein einzigartiges Format Handle fur unser ClipBoard Format. } procedure IncPointer(var p: Pointer; increment: Integer); begin p := PChar(p) + Increment; end; // Say you have a data record defined as: // Definiere zuerst etwa einen solchen Daten Record: type PMyDataRec = ^TMyDataRec; TMyDataRec = record Name: string[50]; Value: Integer; end; { Furthermore let's say the data records are stored in a Listbox and shall be copied to a list box. Angenommen, die Daten Records sind in einer ListBox gespeichert und sollen in eine ListBox kopiert werden. } // Copy like this: procedure TForm1.CopyItems; var i: integer; dh: THandle; ic: integer; p: Pointer; pi: pInteger; begin // get number of items to be copied // Die Anzahl zu kopierenden Items ic := List1.SelCount; dh := GlobalAlloc(GMEM_FIXED or GMEM_ZEROINIT, (SizeOf(TMyDataRec) * ic) + SizeOf(Integer)); { allocate memory for all items plus for a integer variable giving you the number of copied items } p := GlobalLock(dh); { Lock the allocated memory } pi := pInteger(p); pi^ := ic; { write number of items to allocated memory } IncPointer(p, SizeOf(Integer)); { increment the pointer behind the written data } // You don't have to create an instance of clipboard, this is done automatically for i := 1 to List1.Items.Count do { check all items if they are selected } begin if List1.Items[i - 1].Selected then begin { This one is selected -> copy it o the clipboard } PMyDataRec(p)^ := PMyDataRec(List1.Items[i - 1].Data)^; { of course data must point to a TMyDataRec } IncPointer(p, SizeOf(TMyDataRec)); { increment the pointer behind the written data } end; end; // You have now filled the allocated memory with all items that shall be copied. // Now you can put them to the clipboard Clipboard.Open; { Open the clipboard will prevent overwriting of so far copied items } Clipboard.Clear; { Clear the clipboard first } Clipboard.SetAsHandle(MyClpFormat, Dh); { Copy to clipboard } Clipboard.Close; { finally close the clipboard } GlobalUnlock(dh); { and unlock the allocate memory. But don't free it, it will be used by the clipboard } if ic = 0 then GlobalFree(dh); { You can free it if you haven't copied anything } end; // Check first if your items are still available before pasting them from the clipbard if Clipboard.HasFormat(MyClpFormat) then begin Form1.Paste1.Enabled := True; { Yes, they are still available } end; // And this is, how you paste them after Paste1 is clicked procedure TMDIForm.Paste1Click(Sender: TObject); var dh: THandle; pdr: PSLMDataRec; i, ic: integer; p: Pointer; pi: pInteger; li: TListItem; begin if Clipboard.HasFormat(MyClpFormat) then // We have already checked, but maybe another application has overwritten the // clipboard in between.... begin ClipBoard.Open; { First open the clipboard again } dh := Clipboard.GetAsHandle(MyClpFormat); { Catch the handle to the stored items } p := GlobalLock(dh); { and lock it } pi := pInteger(p); { The first item is an integer giving the number of items } ic := pi^; { so get the number of items } IncPointer(p, SizeOf(Integer)); { increment the pointer behind the read data } for i := 1 to ic do { get all copied items one after another } begin li := List1.Items.Add; { first create a new listbox item } pdr := New(PMyDataRec); { Then create a new pointer to a TMyDataRec } pdr^ := PMyDataRec(p)^; { and fill it with data from the clipboard } IncPointer(p, SizeOf(TSLMDataRec)); { increment the pointer behind the written data } li.Data := pdr; { Set the data pointer of the list item to the new record } LI.Caption := pdr^.Name; { Let the item display the record field "Name" } // You can of course add more record fields if the item has subitems: LI.SubItems.Add(IntToStr(Value)); end; { All data retrieved from clipboard } Clipboard.Close; { Close it } GlobalUnlock(dh); { and unlock the pointer, but don't free it. This will be done by the clipboard itself, if necessary } end; end; Приложение 3: unit ClipStrm; interface uses Classes, Windows; type TClipboardStream = class(TStream) private FMemory: pointer; FSize: longint; FPosition: longint; FFormat: word; public constructor Create(fmt: word); destructor Destroy; override; function read(var Buffer; Count: Longint): Longint; override; function write(const Buffer; Count: Longint): Longint; override; function Seek(Offset: Longint; Origin: Word): Longint; override; end; implementation uses SysUtils; constructor TClipboardStream.Create(fmt: word); var tmp: pointer; FHandle: THandle; begin FFormat := fmt; OpenClipboard(0); FHandle := GetClipboardData(FFormat); FSize := GlobalSize(FHandle); FMemory := AllocMem(FSize); tmp := GlobalLock(FHandle); MoveMemory(FMemory, tmp, FSize); GlobalUnlock(FHandle); FPosition := 0; CloseClipboard; end; destructor TClipboardStream.Destroy; begin FreeMem(FMemory); end; function TClipboardStream.read(var Buffer; Count : longint) : longint; begin if FPosition + Count > FSize then Result := FSize - FPosition else Result := Count; MoveMemory(@Buffer, PChar(FMemory) + FPosition, Result); Inc(FPosition, Result); end; function TClipboardStream.write(const Buffer; Count : longint) : longint; var FHandle: HGlobal; tmp: pointer; begin ReallocMem(FMemory, FPosition + Count); MoveMemory(PChar(FMemory) + FPosition, @Buffer, Count); FPosition := FPosition + Count; FSize := FPosition; FHandle := GlobalAlloc(GMEM_MOVEABLE or GMEM_SHARE or GMEM_ZEROINIT, FSize); try tmp := GlobalLock(FHandle); try MoveMemory(tmp, FMemory, FSize); OpenClipboard(0); SetClipboardData(FFormat, FHandle); finally GlobalUnlock(FHandle); end; CloseClipboard; except GlobalFree(FHandle); end; Result := Count; end; function TClipboardStream.Seek(Offset : Longint; Origin : Word) : Longint; begin case Origin of 0 : FPosition := Offset; 1 : Inc(FPosition, Offset); 2 : FPosition := FSize + Offset; end; Result := FPosition; end; end. --------- Обращаться в ICQ: 77778851 или E-Mail: delphinster@gmail.com

Ответ отправил: Delphin (статус: 7-ой класс) Отправлен: 04.07.2005, 21:08 Оценка за ответ: 5 Комментарий оценки: спасибо за ответ. я не стал полностью использовать пример 3, но: FHandle := GetClipboardData(FFormat); FSize := GlobalSize(FHandle); я у себя сделал такое же и программа зависла - когда решил узнать размер буфера обмена через GlobalSize. Я этот вопрос переспрошу.

Отвечает: sir henry Здравствуйте, Вiктор! Открывать клипборд нужно только если он предварительно закрыт. Текст из него можно взять так: TClipbord.GetTextBuf(Buffer: PChar; BufSize: Integer); Buffer - куда записывается текст из клипборда, BufSize - его размер :) т.е. если Вам надо вытащить 10 символов из клипборда пишем: var buff: PChar; Begin Clipbord(buff, 10); Edit1.Text:=StrPas(buff); End; Запихивается текст в клипборд методом: TClipbord.SetTextBuf(Buffer: PChar);

Ответ отправил: sir henry (статус: Профессор) Отправлен: 05.07.2005, 05:31

Вопрос № 23.037

Уважаемые эксперты! Подскажите, как сделать, чтобы готовая программа не просила библиотеку borlndmm.dll (я так понимаю, это Borland Memory Manager?) В Project - Options флажок Build with runtime libraries снят. Чего ему еще надо-то? Больше ничего не просит, только эту dll... Спасибо за внимание. :-)

Отправлен: 04.07.2005, 15:56 Вопрос задала: L_Dorrit (статус: Посетитель) Всего ответов отправлено: 3

Отвечает: John Freeman Здравствуйте, L_Dorrit! Само собой - это для юзания SharedMem и лёгкой передачи строк в dll --------- You're trying to take me They trying to make me This is the only Gives me the only thing Tired of lying, I'm tired of lying The only thing I inderstand is what I feel...

Ответ отправил: John Freeman (статус: Профессор) Отправлен: 04.07.2005, 16:13 Оценка за ответ: 5 Комментарий оценки: Благодарю.

Отвечает: streetcat Здравствуйте, L_Dorrit! Проверь все строки используемых модулей (uses ...) обычно такая фигня вылазит, если где-нить в uses стоит ShareMem --------- WinERROR: Keyboard not detected. Press Enter to continue

Ответ отправил: streetcat (статус: 7-ой класс) Отправлен: 04.07.2005, 18:58 Оценка за ответ: 5 Комментарий оценки: Действительно... была такая ссылка. Ее удаление помогло... Спасибо.

Отвечает: Delphin Здравствуйте, L_Dorrit! Только не использовать эту бибилиотеку. Другого выхода нет. Все равно её придется таскать с собою что ты бы не поставил в настройка. А она тебе ваще нужна? --------- Обращаться в ICQ: 77778851 или E-Mail: delphinster@gmail.com

Ответ отправил: Delphin (статус: 7-ой класс) Отправлен: 04.07.2005, 21:00 Оценка за ответ: 3 Комментарий оценки: А я ее и не использую - напрямую, во всяком случае. Мне вот как раз и хотелось узнать, КАК ее не использовать.

Вопрос № 23.058

Добрый день! спасибо за ваши ответы на вопрос 23025. Я действительно забыл создать объект TClipboard перед тем как вызывать метод OPEN. Но: я взял пустой проект, добавил туда uses clipbrd, добавил в раздел переменных c:TClipboard; добавил форме обработчик create, в нём вызвал конструктор c.create; запустил - и прога вывалилась. Наверно какие-то проблемы с самим делфи... а теперь к сути: программа копирует в буфер обмена данные в своём формате. я получаю адрес этой информации: adres:=GetClipboardData(53429); (53429 - clipboard format компонента, который я использую. Получил через EnumClipboardFormats(0) ) я посмотрел в дебаггере, это действительно то, что копируется программой. Но я не знаю длинны этого куска информации. А я хочу узнать размер скопированой информации, чтобы знать, сколько байт от полученного адреса мне записывать в файл. Пожалуйста, посоветуйте как узнать размер данных, хранящихся в буфере обмена. в справке по SetClipboardData говорится что для этой функции надо выделять памяь через GlobalAlloc. Я решил узнать размер буфера через GlobalSize передав ему полученный из GetClipboardData адрес, но прога зависла.

Отправлен: 05.07.2005, 02:18 Вопрос задал: Вiктор (статус: 3-ий класс) Всего ответов отправлено: 2

Отвечает: sir henry Здравствуйте, Вiктор! А Вы, интересно, хелп по клипборду прочитали? У меня создалось впечатление что нет. Там ведь черным по белому написано, что не надо создавать объект типа Clipboard с помощью Create, тогда Вы сможете использовать СИСТЕМНЫЙ clipboard куда, собственно, все проги и копируют свои данные. 53429 - это Ваш собственный формат? Тогда почему Вы не знаете его длины? Раз Вы его скопировали туда, то должны знать, что используете. Может быть не стоит пока использовать функции WinAPI, а поработайте пока со стандартным объектом Дельфи Clipboard? Может быть Вы все же напишете, что Вы передаете через Clipboard? Неужели не подойдет такая штука: Edit1.Text:=Clipboard.AsText; ? Если же Вы передаете через Clipboard какой-то свой компонент, то Вы просто ОБЯЗАНЫ знать его размер. Чтобы узнать через функцию GlobalSize размер выделеной области памяти с таким-то адресом, Вы эту память сначала должны ВЫДЕЛИТЬ.

Ответ отправил: sir henry (статус: Профессор) Отправлен: 05.07.2005, 07:12

Отвечает: Jadd Здравствуйте, Вiктор! Да не c.create!!!! Я же написал как нужно вызывать. c := TClipboard.Create именно так и никак иначе. Ты же должен создавать экземпляр класса, а не собственной переменной. Как ты можешь вызвать create класса, которого еще нету в памяти? ХЗ почему у тебя виснет. Но вот что в MSDN написано насчет GlobalSize:Note The global functions are slower than other memory management functions and do not provide as many features. Therefore, new applications should use the heap functions. Ну с хиповыми функциями ты добавишь немного гиморра, хотя это вотпрос - открытый. Но дальше там пишется:The size of a memory block may be larger than the size requested when the memory was allocated. To verify that the specified object's memory block has not been discarded, use the GlobalFlags function before calling GlobalSize. Я у себя в дельфе попробовал все сделать, как в примерах из хелпа написано и у меня ни разу не зависло, и сработало как нужно. GlobalSize без зависонов показала правильный размер скопированного в буфер. Ищи у себя причину. --------- Если в сердце дверь закрыта, нужно в печень постучаться

Ответ отправил: Jadd (статус: Студент) Отправлен: 05.07.2005, 10:33

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.