VPF::Проблема с делфи 2007 - Форум программистов

eViperEA

Дата 13.3.2008, 22:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет

Не могу в часности написать(делфи подчеркивает их красной линией):
WebBrowserDragOver
WebBrowserDragDrop
TIdMultiPartFormDataStream
и многие другие... (возможно эт из за триал версии..)
Я только начал програмировать помагите плз...

eViperEA

Дата 14.3.2008, 15:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет

А точнее вот что у меня есть...
Standart: TMainMenu; TPopupMenu; TActionList; TLabel; TEdit; TMemo; TButton; TCheckBox;
TRadioButton; TListBox; TcomboBox; TScrolBar; TCheckListBox; TSlitter; TStaticText; TControlBar;
TValueListEdit; TColorListBox; TCategoryButtons; TButtonGroup; TDockTabSet; TTabSet; TFlowPanel;
TGridPanel; TActionMainMenuBar; TActionToolBar.
Win32: TImageList; TXPManifest; TShellResources; TTabControl; TPageControl; TRichEdit;
TTrackBar; TPogressBar; TUpDown; THotKey; TAnimate; TDateTimePicker; TMonthCalendar; TTreeView;
TListView; THeaderControl; TStatusBar; TToolBar; TCoolBar; TPageScroller; TComboBoxEx.
System: TTimer; TCOMAdminCatalog; TDdeClientConv; TDdeClientItem; TDdeServerConv;
TDdeServerItem; TPaintBox; TMediaPlayer; TOleContainer.
Win 3.1: TOutline; TTabbedNotebook; THeader; TFileListBox; TDirectoryListBox; TDriveComboBox;
TFilteComboBox; TDBLookupList; TDBLookupCombo.
Dialogs: TOpenDialog; TSaveDialog; TOpenPictureDialog; TSavePictureDialog; TOpenTextFileDialog;
TSaveTextFileDialog; TFontDialog; TColorDialog; TPrintDialog; TPrintSetupDialog; TFindDialog;
TReplaceDialog; TPageSetupDialog.
Data Access: TDataSource; TClientDataSet; TDataSetProvider; TXMLTransform;
TXMLTransformProvider; TXMLTransformClient.
Data Controls: TDBGrid; TDBNavigator; TDBText; TDBEdit; TDBMemo; TDBImage; TDBListBox;
TDBComboBox; TDBCheckBox; TDBRadioGroup; TDBLookupListBox; TDBLookupComboBox;
TDBRichEdit; TDBCtrlGrid.
dbExpress: TSQLConnection; TSQLDataSet; TSQLQuery; TSQLStoredProc; TSQLTable; TSQLMonitor;
TSimpleDataSet.
Datasnap: TDCOMConnection; TSocketConnection; TSimpleObjectBroker; TWebConnection;
TConnectionBroker; TSharedConnection.
BDE: TTable; TQuery; TStoredProc; TDatabase; TSession; TBatchMove; TUpdateSQL; TNestedTable.
Rave: TRvProject; TRvSystem; TRvNDRWriter; TRvCustomConnection; TRvDataSetConnection;
TRvTableConnection; TRvQueryConnection; TRvRenderPreview; TRvRenderPrinter; TRvRenderPDF;
TRvRenderHTML; TRvRenderRTF; TRvRenderText.
Internet: TWebDisPatcher; TPageProducer; TDataSetTableProducer; TDataSetPageProducer;
TQueryTableProducer; TSQLQueryTableProducer; TTcpClient; TTcpServer; TUDpSocket; TXMLDocument;
TWebBrowser.
Samples: TTrayIcon; TTrayIcon (не знаю почему 2а раза); TGauge; TColorGrid; TSpinEdit;
TDirectoryOutline; TCalendar.
Vista Dialogs: TFileOpenDialog; TFilerSaveDialog; TTaskDialog.
TeeChart Std: TChart; TDBChart; TSeriesDataSet; TDBCrossTabSource; TButtonColor; TButtonPen;
TButtonGradient; TDarw3D; TComboFlat.
InterBase TIBTable; TIBQuery; TIBStoredProc; TIBDatabase; TIBTransaction; TIBUpdateSQL;
TIBDataSet; TIBSQL; TIBDatabaseInfo; TIBSQLMonitor; TIBEvents; TIBExtract; TIBConnectionBroker;
TIBScript; TIBSQLParser; TIBDatabaseINI; TIBFilterDialog.
dbGo: TADOConnection; TADOCommand; TADODataSet; TADOTable; TADOQuery; TADOStoredProc;
TRDSConnection.
IndyClients: TIdTCPClient; TIdUDPClient; TIdCmdTCPClient; TIdIPMCastClient; TIdIcmpClient;
TIdDayTime; TIdDayTimeUDP; TIdDICT; TIdDNCResolver; TIdEcho; TIdEchoUDP; TIdFinger; TIdFSP; TIdFTP;
TIdGropher; TIdHTTP; TIdIdent; TIdIMAP4; TIdIRC; TIdLPR; TIdNNTP; TIdPOP3; TIdQOTD; TIdQOTDUDP;
TIdRexec; TIdRSH; TIdSMTP; TIdSMTPRelay; TIdSNMP; TIdSNPP; TIdSNTP; TIdSysLog; TIdSystat;
TIdSystatUDP; TIdTelnet; TIdTime; TIdTimeUDP; TIdTrivialFTP; TIdUnixTime; TIdUnixTimeUDP; TIdWhois.
Indy Servers: TIdUDPServer; TIdCMDTPCServer; TIdSimpleServer; TIdTCPServer; TIdIPMCastServer;
TIdChargenServer; TIdChargenUDPServer; TIdDayTimeServer; TIdDayTimeUDPServer; TIdDICTServer;
TIdDISCARDServer; TIdDiscardUDPServer; TIdDNSServer; TIdECHOServer; TIdEchoUDPServer;
TIdFingerServer; TIdFTPServer; TIdGopherServer; TIdHTTPProxyServer; TIdHTTPServer; TIdIdentServer;
TIdIMAP4Server; TIdIRCServer; TIdMappedFTP; TIdMappedPOP3; TIdMappedPortTCP; TIdMappedPortUDP;
TIdMappedTelnet; TIdNNTPServer; TIdPOP3Server; TIdQOTDServer; TIdQotdUDPServer; TIdRexecServer;
TIdRSHServer; TIdSMTPServer; TIdSocksServer; TIdSyslogServer; TIdSystatServer; TIdSystatIDPServer;
TIdTelnetServer; TIdTimeServer; TIdTimeUDPServer; TIdTrivialFTPServer; TIdUnixTimeServer;
TIdUnixTimeUDPServer; TIdWhoIsServer.
Indy I/O Handlers: TIdIOHandlerStack; TIdIOHandlerStream; TIdServerIOHandlerStack;
TIdServerIOHandlerSSLOpenSSL; TIdSLLIOHandlerSocketOpenSSL.
Indy Intercepts: TIdConnectionIntercept; TIdInterceptSimLog; TIdInterceptThrottler; TIdLogDedug;
TIdLogEvent; TIdLogFile; TIdLogStream; TIdServerInterceptLogEvent; TIdServerInterceptLogFile.
Indy Misc: TIdSocksInfo; TIdAntiFreeze; TIdSchedulerOfThreadDefault; TIdSchedulerOfThreadPool;
TIdTheadComponent; TIdConnectThroughHttpProxy; TIdCompressorZLibEx; TIdCookieManager;
TIdEncoderMIME; TIdEncoderUUE; TIdEncoderXXE; TIdEncoderQuotedPrintable; TIdDataTimeStamp;
TIdDecoderMIME; TIdDecoderUUE; TIdDecoderXXE; TIdDecoderQuotedPrintable; TIdIPWatch;
TIdIPAddrMon; TIdMailBox; TIdMessage; TIdMessageDecoderMIME; TIdMessageEncoderMIME;
TIdMessageDecoderYenc; TIdMessageEncoderYenc; TIdNetworkCalculator; TIdSysLogMessage;
TIdUserManager; TIdVCard.
Indy SASL: TIdSASLAnonymous; TIdSASLCRAMMDS; TIdSASLExternal; TIdSASLLogin; TIdSASLOTP;
TIdSASLPlain; TIdSASLKey; TIdUserPassProvider.
IW Standard: TIWApplet; TIWButton; TIWCheckBox; TIWComboBox; TIWEdit; TIWFile; TIWFlash;
TIWHRule; TIWImage; TIWImageFile; TIWImageButton; TIWList; TIWLabel; TIWListbox; TIWLink;
TIWMemo; TIWMenu; TIWProgressBar; TIWRadioGroup; TIWRectangle; TIWRegion; TIWText; TIWTimer;
TIWGrid; TIWTreeView; TIWURL; TIWURLWindow; TIWActiveX; TIWMPEG; TIWQuickTime; TIWCalendar;
TIWOrderdListbox; TIWTabControl; TIWTimeEdit; TIWRadioButton.
IW Control: TIWTemplateProcessorHTML; TIWTemplateProcessorHTML32; TIWLayoutMgrFrom;
TIWPageProducer; TIWPageProducer32; TIWModuleController; TIWClientSideDataset;
TIWStandAlonServer; TIWClientSideDatasetDBLink; TIWPageController; TIWPageController32;
TIWLayoutMgrHTML; TIWLayoutMgrHTML32; TIWImageList; TIWDataModulePool;
TIWTemplateProcessorWAP; TIWProgressIndicator.
IW Standard 3.2: TIWLabel32; TIWEdit32; TIWFile32; TIWButton32; TIWList32; TIWRule32;
TIWListbox32; TIWComboBox32; TIWRadioGroup32; TIWRegion32; TIWImage32; TIWImageFile32;
TIWURL32; TIWGrid32; TIWMemo32; TIWText32; TIWRectangle32; TIWCheckBox32; TIWHyperLink32;
TIWRadioButton32.
IW WAP: TIWLabelWAP; TIWEditWAP; TIWImageWAP; TIWImageFileWAP; TIWButtonWAP;
TIWRadioButtonWAP; TIWCheckBoxWAP; TIWHyperLinkWAP; TIWURLWAP; TIWComboBoxWAP;
TIWListBoxWAP; TIWLinkWAP; TIWGridWAP.
IW Data: TIWDBCheckBox; TIWDBComboBox; TIWDBEdit; TIWDBGrid; TIWDBImage; TIWDBLabel;
TIWDBListBox; TIWDBLookupListbox; TIWDBLookupCombox; TIWDBFile; TIWDBMemo; TIWDBNavigator;
TIWDBText; TIWDBRadioGroup.
IW Client Side: TIWCSLabel; TIWCSNavigator; TIWDynamicChart; TIWDynamicChatLegend;
TIWDynGrid.
IW Data 3.2: TIWDBEdit32; TIWDBCheckBox32; TIWDBComboBox32; TIWDBLabel32;
TIWDBListbox32; TIWDBLookupComboBox32; TIWDBLookupListBox32; TIWDBMemo32; TIWDBText32;
TIWDBImage32; TIWDBRadioGroup32; TIWDBGrid32.
IW Data WAP: TIWDBLabelWAP; TIWDBEditWAP; TIWDBCheckBoxWAP; TIWDBComboBoxWAP;
TIWDBListBoxWAP; TIWDBLookupComboBoxWAP; TIWDBLookupListBoxWAP; TIWDBImageWAP.
InternetExpress: TXMLBroker; TInetXPageProducer.
WebSnap: TAdapter; TPagedAdapter; TDataSetAdapter; TLoginFormAdapter; TStringsValuesList;
TDataSetValuesList; TWebAppComponents; TApplicationAdapter; TEndUserAdapter;
TEndUserSessionAdapter; TPageDispatcher; TAdapterDicpatcher; TLocateFileService; TSessionService;
TWebUserList; TXSLPageProducer; TAdapterPageProducer.
WebServices: THTTPRIO; THTTPReqResp; TOPToSoapDomConvert; TSoapConnection;
THTTPSoapDispatcher; TWSDLHTMLPublish; THTTPSoapPascalInvoker; THTTPSoapCppInvoker.

Это сообщение отредактировал(а) eViperEA - 14.3.2008, 15:43

Snowy

Дата 14.3.2008, 15:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Поставь курсор на слово, которое подчёркивает и нажми Ctrl+Shift+A

eViperEA

Дата 14.3.2008, 16:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет

Не смог разобраться что именно делать когда нажал ctrl+shift+a он рисует мне окошко Find Unit и search когда я ишу например TLoginDialog то он его не находит...

Код


uses
  MSHTML_TLB; [U](Подчеркивает)[/U]

// first navigate to tipspage

procedure TForm1.Button1Click(Sender: TObject);  (Подчеркивает Button1Click хотя я создал ее)
begin
  Webbrowser1.Navigate('http://www.swissdelphicenter.ch/en/tipsuchen.php');
end;

// Try to access IE instance and fill out the search field with
// a text and click the search button

procedure TForm1.Button3Click(Sender: TObject); (Подчеркивает Button3Click хотя я создал ее)
var
  hIE: HWND;
  ShellWindow: IShellWindows;
  WB: IWebbrowser2;
  spDisp: IDispatch;
  IDoc1: IHTMLDocument2; [U](Подчеркивает/ не сомг найти компонент..)[/U]
  Document: Variant;
  k, m: Integer;
  ovElements: OleVariant;
  i: Integer;
begin
  ShellWindow := CoShellWindows.Create;
  // get the running instance of Internet Explorer
  for k := 0 to ShellWindow.Count do
  begin
    spDisp := ShellWindow.Item(k);
    if spDisp = nil then
      Continue;
    // QueryInterface determines if an interface can be used with an object
    spDisp.QueryInterface(iWebBrowser2, WB);

    if WB <> nil then
    begin
      WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
      if iDoc1 <> nil then
      begin
        WB := ShellWindow.Item(k) as IWebbrowser2;
        begin
          Document := WB.Document;

          // count forms on document and iterate through its forms
          for m := 0 to Document.forms.Length - 1 do
          begin
            ovElements := Document.forms.Item(m).elements;
            // iterate through elements
            for i := 0 to ovElements.Length - 1 do
            begin
              // when input fieldname is found, try to fill out
              try
                if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and
                  (CompareText(ovElements.item(i).type, 'text') = 0) then
                begin
                  ovElements.item(i).Value := 'FindWindow';
                end;
              except
              end;
              // when Submit button is found, try to click
              try
                if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and
                  (CompareText(ovElements.item(i).type, 'SUBMIT') = 0) and
                  (ovElements.item(i).Value = 'Search') then
                    // Suchen fьr German
                begin
                  ovElements.item(i).Click;
                end;
              except
              end;
            end;
          end;
        end;
      end;
    end;
  end;
end;

Snowy

Дата 14.3.2008, 16:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Потому что у тебя нет этого юнита. Нужно его сначала создать, через импорт.

меню
Component - Import Component - Import a Type Library
Ищешь Microsoft HTML Object Lybrary
Устанавливаешь, сохраняешь полученный MSHTML_TLB.pas в папку lib.

eViperEA

Дата 15.3.2008, 06:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 13.3.2008

Репутация: нет
Всего: нет

Ни как не могу разобраться с авто заполнением форм в webbrowser.. (приведенные в DRKB)
Все примеры которые я использовал подчеркивают красной чертой 1-2 слова и я не могу дяде их проверить...

Код


{ 

This example shows how to fill out fields in your webbrowser by 

dragging the content of Label1 to a field of your webbrowser}

 

 

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  label1.DragMode := dmAutomatic;

end;

 

 

procedure TForm1.WebBrowserDragOver(Sender, Source: TObject; X,

  Y: Integer; State: TDragState; var Accept: Boolean);

var

  item: Variant;

begin

  //check if document is interactive 

if (Webbrowser.ReadyState and READYSTATE_INTERACTIVE) = 3 then

  begin

    item := WebBrowser.OleObject.Document.elementFromPoint(x, y);

    if Source is TLabel then

      Accept := True;

    Accept := (item.tagname = 'INPUT') and ((item.type = 'text') or

      (item.type = 'password')) or (item.tagname = 'TEXTAREA');

  end;

end;

 

procedure TForm1.WebBrowserDragDrop(Sender, Source: TObject; X,

  Y: Integer);

var

  item: Variant;

begin

  //check if document is interactive 

if (Webbrowser.ReadyState and READYSTATE_INTERACTIVE) = 3 then

  begin

    item       := WebBrowser.OleObject.Document.elementFromPoint(x, y);

    item.Value := label1.Caption;

  end;

end;

Здесь подчеркивается WebBrowserDragOver, FormCreate.

Код


uses
  MSHTML_TLB;
// first navigate to tipspage
procedure TForm1.Button1Click(Sender: TObject);  
begin
  Webbrowser1.Navigate('http://www.swissdelphicenter.ch/en/tipsuchen.php');
end;
// Try to access IE instance and fill out the search field with
// a text and click the search button
procedure TForm1.Button3Click(Sender: TObject); 
var
  hIE: HWND;
  ShellWindow: IShellWindows;
  WB: IWebbrowser2;
  spDisp: IDispatch;
  IDoc1: IHTMLDocument2; 
  Document: Variant;
  k, m: Integer;
  ovElements: OleVariant;
  i: Integer;
begin
  ShellWindow := CoShellWindows.Create;
  // get the running instance of Internet Explorer
  for k := 0 to ShellWindow.Count do
  begin
    spDisp := ShellWindow.Item(k);
    if spDisp = nil then
      Continue;
    // QueryInterface determines if an interface can be used with an object
    spDisp.QueryInterface(iWebBrowser2, WB);
    if WB <> nil then
    begin
      WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
      if iDoc1 <> nil then
      begin
        WB := ShellWindow.Item(k) as IWebbrowser2;
        begin
          Document := WB.Document;
          // count forms on document and iterate through its forms
          for m := 0 to Document.forms.Length - 1 do
          begin
            ovElements := Document.forms.Item(m).elements;
            // iterate through elements
            for i := 0 to ovElements.Length - 1 do
            begin
              // when input fieldname is found, try to fill out
              try
                if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and
                  (CompareText(ovElements.item(i).type, 'text') = 0) then
                begin
                  ovElements.item(i).Value := 'FindWindow';
                end;
              except
              end;
              // when Submit button is found, try to click
              try
                if (CompareText(ovElements.item(i).tagName, 'INPUT') = 0) and
                  (CompareText(ovElements.item(i).type, 'SUBMIT') = 0) and
                  (ovElements.item(i).Value = 'Search') then
                    // Suchen fьr German
                begin
                  ovElements.item(i).Click;
                end;
              except
              end;
            end;
          end;
        end;
      end;
    end;
  end;
end;

C этим я вообще не могу разобраться где здесь вводить адрес страницы smile

на которой надо заполнить поля...
Мне надо заполнить поле login и password... на http://money-website.com/login.php
если надо то вот логин и пароль eViperEA пасс pascal (и нужно еще заполнить поле с цифрами автоматически генерирующихся при каждом заходе)
Если можете помогите пожалуйста...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »