Система «Эксперт» - уникальная система, которая поможет решить, если не все, то многие Ваши проблемы с программированием и разработкой! Если у Вас есть какой-либо вопрос по программированию или разработке, то Вы всегда можете задать его нашим Экспертам! При этом каких-либо особых действий от Вас не потребуется! Просто отправьте Ваш вопрос на адрес mailto:expert@kbyte.ru, в теме письма укажите тему вопроса, в тексте – сам вопрос, и все! Эксперты дадут Вам ответ в течение 12-24 часов, на тот адрес, с которого Вы отправите вопрос. Все проще простого! Никакой регистрации и заполнение бесконечных форм, просто спросите и получите ответ ;-)

Вопрос #000764: Програмное определение позиции меню в vb6

Автор вопроса: Иван Денишев // 16.02.2008 / 23:24

Здравствуйте уважаемые эксперты!
 Говорят, что вы можете ответить на любой вопрос.
 Как программно в vb6 узнать, на каком пункте меню находится курсор.
 Для примера, возьмём меню "файл".
 Caption   |   Name
 Файл   |   MnuFile
 Создать   |   MnuFileNew
 Открыть   |   MnuFileOpen
 Ну, и пожалуй, хватит. И так будет понятно.
 Запускаем программу и жмём: либо f10, либо alt.
 Затем стрелку вниз.
 Меню "Создать",
выделится другим цветом.
 Так вот, как программно получить, где находится курсор?
 Ведь, в vb нету свойства GotFocus у менюшек.
 Очень надеюсь на вашу помощь!
 ---
 С уважением: Иван Денишев.

Отвечает: Алексей Немиро // 17.02.2008 / 10:12

Здравствуйте, Иван.
 
 ВНИМАНИЕ: Данный пример довольно опасный, и может привести к зависанию Visual Basic!
 
 Скачать готовый пример можно тут: http://kbyte.ru/Code/Samples/form1.zip
 
 Создайте новый EXE-проект, на форме разместите Timer и вставьте следующий код:
 
 Код формы:
 001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
Option Explicit

Private Sub Form_Load()
 gHW = Me.hwnd
 Hook
End Sub

Private Sub Form_Unload(Cancel As Integer)
 Unhook
End Sub

Private Sub Timer1_Timer()
 Me.Caption = SelectedMenuString
End Sub

 
 Также добавьте несколько элементов меню.
 Дополнительно создайте новый модуль и вставьте следующий код:
 
 Код модуля:
 001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
027:
028:
029:
030:
031:
032:
033:
034:
035:
036:
037:
038:
039:
040:
041:
042:
043:
044:
045:
046:
047:
048:
049:
050:
051:
052:
053:
054:
055:
056:
057:
058:
059:
060:
061:
062:
063:
064:
065:
066:
067:
068:
069:
070:
071:
072:
073:
074:
075:
076:
077:
078:
079:
080:
081:
082:
083:
084:
085:
086:
087:
088:
089:
090:
091:
092:
093:
094:
095:
096:
097:
098:
099:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
Option Explicit

Public SelectedMenuString As
String 'здесь будет заголовок выбранного элемента меню

Private Declare Function CallWindowProc Lib "user32" _
  Alias "CallWindowProcA" (ByVal lpPrevWndFunc As
Long, _
  ByVal hwnd As Long, ByVal Msg As Long, _
  ByVal wParam As Long, ByVal lParam As Long) As
Long

Private Declare Function SetWindowLong Lib "user32" _
  Alias "SetWindowLongA" (ByVal hwnd As Long, _
  ByVal
nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetMenu Lib "user32" _
 (ByVal
hwnd As Long) As Long

Private Declare Function GetSubMenu Lib "user32" _
 (ByVal hMenu As Long, ByVal nPos
As Long) As Long

Private Declare Function GetMenuItemCount Lib "user32" _
 (ByVal hMenu As Long) As Long

Private Declare Function GetMenuState Lib "user32" _
 (ByVal hMenu As Long, ByVal wID As Long, _
  ByVal
wFlags As Long) As Long

Private Declare Function GetMenuString Lib "user32" _
  Alias "GetMenuStringA" (ByVal hMenu As
Long, _
  ByVal wIDItem As Long, ByVal lpString As String, _
  ByVal nMaxCount As Long, ByVal wFlag As Long) As
Long

Private Const MF_BYPOSITION = &H400&
Private Const MF_HILITE = &H80&
Private Const WM_MENUSELECT = &H11F
Private Const
GWL_WNDPROC = -4

Public lpPrevWndProc As Long
Public gHW As Long

Public Sub Hook()
  'Begin hooking into messages.
  lpPrevWndProc = SetWindowLong(gHW,
GWL_WNDPROC, _
  AddressOf WindowProc)
End Sub

Public Sub Unhook()
  'Cease hooking into messages.
  SetWindowLong gHW, GWL_WNDPROC, lpPrevWndProc
End Sub

Function AnyLit(hSubSubMenu
As Long) As Long
  Dim i As Long
  Dim MenuCount As Long

  'Get the number of items in the menu.
  MenuCount =
GetMenuItemCount(hSubSubMenu)

  'Loop through the menu items.
  For i = 0 To MenuCount - 1
    'Check whether this item is highlighted.
    If GetMenuState(hSubSubMenu, i, MF_BYPOSITION) And _
        MF_HILITE Then
      AnyLit = True
      Exit Function
    End If
  Next i

  'Return
FALSE, no items highlighted.
  AnyLit = False
End Function

Private Sub WalkSubMenu(hSubMenu As Long)
  Dim i As Long
  Dim
MenuItems As Long
  Dim hSubSubMenu As Long
  Dim buffer As String
  Dim result As Long

  'Get the count of
menu items in this menu.
  MenuItems = GetMenuItemCount(hSubMenu)

  'Loop through all the items on the menu.
  For i = 0 To MenuItems - 1
    'Determine whether this item is highlighted.
    If
GetMenuState(hSubMenu, i, MF_BYPOSITION) And _
        MF_HILITE Then
      'Attempt to get a submenu for each menu item.
      hSubSubMenu = GetSubMenu(hSubMenu, i)

      'Check for a submenu with something selected on it.
      If hSubSubMenu And AnyLit(hSubSubMenu) Then
        'There is a submenu with a selection so walk it.
        WalkSubMenu hSubSubMenu
      Else
        buffer = Space(255)
        result = GetMenuString(hSubMenu, i, buffer, Len(buffer), MF_BYPOSITION)
        buffer = Left$(buffer, result)
        SelectedMenuString = GetDescription(buffer)
        Exit
Sub
      End If
    End If
  Next i
End Sub

Public Sub FindHilite(TheForm As Form)
  Dim hMenu As Long
  Dim hSubMenu As Long
  Dim i As Long
  Dim MenuCount As Long

  'Clear
any previous description.
  SelectedMenuString = ""

  'Get the menu handle.
  hMenu = GetMenu(TheForm.hwnd)

  'Check to see if there is no menu.
  If hMenu <> 0 Then
    'Get the number of top-level menus.
    MenuCount = GetMenuItemCount(hMenu)

    'Enumerate through all top-level menus.
    For i = 0 To MenuCount - 1
      'Ignore top-level menus
not currently selected.
      If GetMenuState(hMenu, i, MF_BYPOSITION) And _
          MF_HILITE Then
        'Get a handle to the submenu.
        hSubMenu = GetSubMenu(hMenu, i)

        'Walk the submenu.
        WalkSubMenu hSubMenu
      End If
    Next i
  End If
End Sub

Private Function GetDescription(MenuCaption As String) As String
 GetDescription = MenuCaption
End Function

Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 If uMsg = WM_MENUSELECT
Then
  FindHilite Form1
 End If
 WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
End Function

 
 При выборе элемента меню в переменной SelectedMenuString будет текст заголовка выбранного элемента меню.

Вопрос #000754: HttpWebRequest и HttpWebResponse

Автор вопроса: Сергей // 13.02.2008 / 23:01

Здравствуйте.
 Алексей Сергеевич в статье "Взаимодействие с другими сайтами через HTTP" хорошо описал, как можно программно
заполнить и отправить Web-форму и получить результат. Спасибо. А как быть, если есть защита от автоматов? Т.е. как отобразить имиджи с цифрами, получить и отправить выбранный вручную ответ? Спасибо.
 
 --------------------------------------
 Категория: --- C# (Си шарп)
 
 

Отвечает: Алексей Немиро // 14.02.2008 / 03:35

Здравствуйте, Сергей.
 
 Для этого придется икать уязвимости в самой CAPTCHA, «проще всего» разобраться с картинкой, которая в url содержит код, по которому она была сгенерирована.
 
  http://www.captcha.ru/breakings/ 
 
 Также можно попробовать написать распозновалку картинок, но это уже зависит
от ее кривизны и окраски, чем меньше кривизны и меньше цветов, тем больше вероятность написать нормальную распозновалку.
 
 Либо придется подключать человека, отдавать ему картинки и чтобы он сам вручную вводил номера.
 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000745: Проблема с компонентом WINSOCK

Автор вопроса: Дмитрий // 10.02.2008 / 15:57

Уважаемые Эксперты!
 Помогите решить вот такую проблему: создал приложение с использованием сокетов но на других компьютерах оно не запускается из-за того что якобы отсутствует компонент MSWINSCK.OCX. Как можно решить эту проблему?
 Заранее
спасибо
 
 
 --------------------------------------
 Категория: --- Visual Basic 5.0/6.0
 
 

Отвечает: Алексей Немиро // 10.02.2008 / 16:09

Здравствуйте, Дмитрий!
 
 Файл MSWINSCK.OCX
можно найти в папке WINDOWS\system32 Вашего
 компьютера. Чтобы Ваша программа работала на другом компьютере, Вам
 необходимо перенести этот файл, и возможно зарегистрировать его.
 Регистрация компонентов производится программой regsvr32.exe,
 которую можно найти в той же папке (system32). Для регистрации достаточно
 перетащить файл компонента (mswinsck.ocx) на файл regsvr32.exe в проводнике Windows. 
 
 
 -- 
 С наилучшими пожеланиями, 
 Немиро Алексей http://aleksey.nemiro.ru/

Вопрос #000743: C#, forms

Автор вопроса: "Slonov K." // 09.02.2008 / 14:05

 
 Добрый день.
 C# .
 Есть форма(Form1) с кнопкой, при нажатии на неё создаётся другая
 форма(Form2).
 
  private void button1_Click(object sender, EventArgs e)
     {
       Form2 Fr = new Form2();
       Fr.Show();
     }
 
  Вопрос : как добиться чтобы чтобы при повторном нажатии на эту же
  кнопку не создавалось ещё одно окно(типа Form2) , а просто
  становилось становилось активным уже существующее Fr.
  Заранее спасибо.

 Костя
 
  З.Ы. Может я что то принципиально не так делаю?

Отвечает: EROS // 10.02.2008 / 18:36

Здравствуйте
 Подобного поведения можно добиться различными способами, вот один из
 них:
 
 001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
private void button1_Click(object sender, EventArgs e)
    {
      foreach
(Form item in Application.OpenForms)
      {
        if (item is Form2)
        {
          item.Focus();
          return;
        }
      }

      Form2 frm = new Form2();
      frm.Show();
    }

 
 -- 
 С уважением,
 EROS             mailto:eros@fromru.com

Вопрос #000735: Localization and DataBase

Автор вопроса: Taleh Mikailov // 05.02.2008 / 15:36

Здравствуйте уважаемые эксперты! 
 На свой вопрос, что написал прошлый раз не получил ответа. В связи с этим решил более подробнее обьяснить ситуацию и более точно сформулировать свой вопрос... 
 Мне нужно включить в Веб Приложение поддержку локализации
из Баз Данных. 
 Долго искал, по этому вопросу, какой-нибудь материал в сети. 
 Мое внимание привлекла вот эта статья: www.microsoft.com/rus/msdn/publish/articles/asap.mspx
 После того, как прочитал статью, для примера создал не большое приложение и одну таблицу в Базе Данных() 
 Таблица(StringResources) из Базы Данных(CustomResourceProviderSample)
 
 resourceType     | cultureCode  |resourceKey                      | resourceValue
 Default.aspx          en      lbHelloLocalResource1.Text
          Hello(en)
 Default.aspx          en      lbLanguageLocalResource1.Text       English(en)
 Default.aspx          en      lbWelcomeLocalResource1.Text       Welcome(en)
 Default.aspx          en      hlAboutCompanyLocalResource1.Text   About Company(en)
 Default.aspx          en      hlContactUsLocalResource1.Text       Contact Us(en)
 Default.aspx          en      hlLearnMoreLocalResource1.Text       Learn More(en)
 Default.aspx          en      btnSendDemoMailLocalResource1.Text
 Send Demo Mail(en)
 AboutCompany.aspx   en       lbCompanyNameLocalResource1.Text   MatrixSoftware(en)
 AboutCompany.aspx   en      Literal1LocalResource1.Text          "Текст с описанием фирмы(en)"
 AboutCompany.aspx   en      hlContactUsLocalResource1.Text       Contact Us(en)
 AboutCompany.aspx   en      btnBackLocalResource1.Text           Main Page(en)
  
 Обращение к ресурсам осуществляю следующим образом:
 
 this.lbHello.Text = HttpContext.GetLocalResourceObject("Default.aspx",
"lbHelloLocalResource1.Text") as string;
 
 Одним словом строго следую указаниям из статьи...
 Проблема в том, что при компиляции приложения получаю 8 ошибок:
 
 Error 1 The type or namespace name 'ResourceProviderFactory' could not be found (are you missing a using directive or an assembly reference?) C:\Documents and Settings\talekh\My Documents\Visual Studio 2005\Projects\DBResourceProviderWeb\CustomResourceProviders\DBResourceProviderFactory.cs 11 46 CustomResourceProviders
 
 using System;
 
 using System.Web;
 
 using System.Diagnostics;
 
 using System.Globalization;
 
 using System.Resources;
 
 using System.Threading;
 
 namespace CustomResourceProviders
 
 {
 
 public class DBResourceProviderFactory : ResourceProviderFactory
 
 {
 
 public override IResourceProvider CreateGlobalResourceProvider(string classKey)
 
 {
 
 Debug.WriteLine(String.Format(CultureInfo.InvariantCulture,
"DBResourceProviderFactory.CreateGlobalResourceProvider({0})", classKey));
 
 return new DBResourceProvider(classKey); 
 
 }
 
 public override IResourceProvider CreateLocalResourceProvider(string virtualPath)
 
 {
 
 Debug.WriteLine(String.Format(CultureInfo.InvariantCulture, "DBResourceProviderFactory.CreateLocalResourceProvider({0}", virtualPath));
 
 // we should always get a path from the runtime
 
 string classKey
= virtualPath;
 
 if (!string.IsNullOrEmpty(virtualPath))
 
 {
 
 virtualPath = virtualPath.Remove(0, 1);
 
 classKey = virtualPath.Remove(0, virtualPath.IndexOf('/') + 1);
 
 }
 
 return new DBResourceProvider(classKey);
 
 }
 
 }
 
 }
 
 -----------------------------------
 
 Error 2 The type or namespace name 'Compilation' does not exist in the namespace 'System.Web' (are you missing an assembly reference?)
C:\Documents and Settings\talekh\My Documents\Visual Studio 2005\Projects\DBResourceProviderWeb\CustomResourceProviders\DBResourceProvider.cs 2 18 CustomResourceProviders
 
 using System.Web.Compilation;             <-????
 
 ------------------------------------------
 
 Error 3 The type or namespace name 'DisposableBaseType' could not be found (are you missing a using directive or an assembly reference?) C:\Documents and Settings\talekh\My Documents\Visual Studio 2005\Projects\DBResourceProviderWeb\CustomResourceProviders\DBResourceProvider.cs
17 36 CustomResourceProviders
 
 namespace CustomResourceProviders
 
 {
 
 /// <summary>
 
 /// Resource provider accessing resources from the database.
 
 /// This type is thread safe.
 
 /// </summary>
 
 public class DBResourceProvider : DisposableBaseType, IResourceProvider           <- ????????
 
 {
 
 private string m_classKey;
 
 private StringResourcesDALC m_dalc;
 
 //
resource cache
 
 private Dictionary<string, Dictionary<string, string>> m_resourceCache = new Dictionary<string, Dictionary<string, string>>();
 
 /// <summary>
 
 /// Constructs this instance of the provider 
 
 /// supplying a resource type for the instance. 
 
 /// </summary>
 
 --------------------------------------------
 
 Error 4 The type or namespace name 'IResourceProvider' could not be found (are
you missing a using directive or an assembly reference?) C:\Documents and Settings\talekh\My Documents\Visual Studio 2005\Projects\DBResourceProviderWeb\CustomResourceProviders\DBResourceProvider.cs 17 56 CustomResourceProviders
 
 ------------------------------------
 
 Error 5 The type or namespace name 'Security' does not exist in the namespace 'System.Web' (are you missing an assembly reference?) C:\Documents and Settings\talekh\My Documents\Visual Studio 2005\Projects\DBResourceProviderWeb\CustomResourceProviders\DBResourceReader.cs
5 18 CustomResourceProviders
 С этой разобрался!
 
 Error 6 The type or namespace name 'DisposableBaseType' could not be found (are you missing a using directive or an assembly reference?) C:\Documents and Settings\talekh\My Documents\Visual Studio 2005\Projects\DBResourceProviderWeb\CustomResourceProviders\DBResourceReader.cs 23 34 CustomResourceProviders
 
 Error 7 The type or namespace name 'IResourceProvider' could not be found (are you missing a using directive or an assembly
reference?) C:\Documents and Settings\talekh\My Documents\Visual Studio 2005\Projects\DBResourceProviderWeb\CustomResourceProviders\DBResourceProviderFactory.cs 14 25 CustomResourceProviders
 
 Error 8 The type or namespace name 'IResourceProvider' could not be found (are you missing a using directive or an assembly reference?) C:\Documents and Settings\talekh\My Documents\Visual Studio 2005\Projects\DBResourceProviderWeb\CustomResourceProviders\DBResourceProviderFactory.cs 20 25 CustomResourceProviders
 
 Совсем НЕ уверен, что делаю все как надобно, поэтому обращаюсь к вам !!!
 Очень прошу помочь !!!
 
 Буду рад получить от вас замечания и исправления !!!
 Заранее благодарю!!!

Отвечает: EROS // 08.02.2008 / 03:47

Здравствуйте.
 Судя по описанию ошибок вы не подключили необходимые библиотеки либо
 не указали нужную директиву using
 
 
 -- 
 С уважением,
 EROS

Чтобы задать Ваш вопрос, отправьте его на адрес expert@kbyte.ru

Раздел Эксперт на сайте Kbyte.Ru

Наверх

Последнее на форумах

kak soxranit word dokument risunkami na SQL | Автор: agakamran
Добавлено: 14.02.2008 / 11:07 | ответов: 1 | просмотров: 57

Pomaqiti pojalusta esli ktoto etom problemoy stalknulsa .
zadacha takoe textvoe dokument s risunkami,ili matematicheski formulu nado soxranit na SQL dateBase

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:14.02.2008 / 11:10
Думаю, можно сохранить в поле типа binnary.

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Проблема подключения к базе данных | Автор: Korkinet
Добавлено: 13.02.2008 / 14:07 | ответов: 9 | просмотров: 204

Добрый день!
Нужна помощь. Есть сайт на классическом ASP + mdb. Всё работало хорошо (последний раз проверял месяц назад). Вдруг отказывается подключаться к базе данных. Вроде ничего не менял. Простую ASP страницу показывает без проблем, но при попытке подключения выдаёт ошибку на метод open подсоединения. connectionstring не менялся. Переустановка MDAC и IIS ничего не дала.
Строка подкючения: "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("data.mdb")

Выдаёт ошибку:
Microsoft JET Database Engine (0x80004005)
Unspecified error

Помогите, кто может!

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: BigDan
Добавлено:13.02.2008 / 15:10

Попробуй еще вот так

dbPath = Server.MapPath("data.mdb")

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: Алексей
Добавлено:13.02.2008 / 15:28
1. Проверьте, чтобы файл базы данных был закрыт и не был заблокирован
какой-нибудь программой. Бывают случае, когда на компе открыт сам
Access, а файл бд вроде как закрыт, и выпадает такая же ошибка.

2. Проверьте права доступа к файлу, проверьте, чтобы не стоял атрибут ReadOnly

3. Проверьте целостность файла базы данных (открывается ли он в Access, или нет)

--
С наилучшими пожеланиями,
Немиро Алексей http://aleksey.nemiro.ru/

_________________
Это сообщение добавлено через Kbyte.Ru Forum Mail Conference (FMC)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: Korkinet
Добавлено:13.02.2008 / 15:47
Всё открывается без проблем. Делает Compact&Repair, во время попытки подключения Аксесс не открыт (да и вообще он при этом обычно другую ошибку выдаёт). Короче, что-то очень странное.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 4 | Автор: Алексей
Добавлено:14.02.2008 / 04:34

код в студию!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 5 | Автор: Korkinet
Добавлено:14.02.2008 / 07:33
001:
002:
003:
004:
005:
006:
Dim connection,connectionString
connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("data.mdb")
Set connection=server.createobject("adodb.connection")
connection.open connectionString

Colorized by: Eros.CodeSyntaxColor Engine

Ошибку выдаёт в 4-ой строке.
Но я же говорю: месяц назад всё работало, ничего не трогал. А сейчас проверил, ни один проект не подключается. Как оказалось и на ASP.NET тоже. Но там ошибок не выдаёт, а просто данные не вытаскивает.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 6 | Автор: BigDan
Добавлено:14.02.2008 / 17:06
Set Conn = Server.CreateObject("ADODB.Connection")

dbPath = Server.MapPath("data.mdb")

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath

Set rs = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * FROM home ORDER BY home_id"

rs.Open strSQL, Conn, 2,2 или 3,3

ну я честно незнаю попробуй вот на основании своего подставить мой код, у меня этот код пашет

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 7 | Автор: Алексей
Добавлено:15.02.2008 / 04:29
А с другими файлами БД такие же проблемы?

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 8 | Автор: Korkinet
Добавлено:15.02.2008 / 18:30
Чую я, что с системой творится что-то неладное... Какие-то глюки подозрительные пошли. В блокноте, для примера, опция View->Status bar вдруг стала недоступна. Связи, конечно, никакой, но уже подозрительно. У меня все базы на Аксессе, но с другими та же байда.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 9 | Автор: Алексей
Добавлено:16.02.2008 / 02:30
Видимо дрова поломались, можно еще раз попробовать все удалить, MDAC и IIS и весь офис снести, а также, если перед поломкой ставился какой-то софт, можно попробовать его удалить. У меня недавно был глюк, поставил Adobe Flash CS 3 и Visual Studio 2005 отказывалась корректно работать, я долго мучался, готов был винду снести, пока не догадался удалить весь софт, который недавно ставил :)

Еще ODBC надо бы проверить, и журнал системный почитать..

В блокноте, для примера, опция View->Status bar вдруг стала недоступна

Формат -> Перенос по словам (убрать)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

С днем рождения! | Автор: Алексей
Добавлено: 13.02.2008 / 06:19 | ответов: 2 | просмотров: 63

Сегодня Kbyte.Ru исполняется 2 года!

С днем рождения Kbyte.Ru!

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: BigDan
Добавлено:13.02.2008 / 15:06
Поздравляю В первую очередь людей создавших этот сайт, который не просто висит в инете а реально помогает веб программерам веб-мастерам и вообще людям которые связаны с вебом, пусть у вас все будет ОК, процветания вам, вашему сайту, побольше креативных идей, пользователей которые будут присоединяться к вашему сайту, ну и конечно здоровья всем вам!!! Большое вам спасибо вы молодцы!!!

С уважением Big Dan!!!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: Игорь Голов
Добавлено:15.02.2008 / 00:42
Поздравляю с Днём Рождения!
Сайт очень полезный!

Именно с него началась моя личная Новая Эра в программировании! Сайту и создателям больших жизненных Удач!
Так держать!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Вопрос по кодировкам Win -> UTF8 и UTF8 -> Win | Автор: Игорь Голов
Добавлено: 12.02.2008 / 21:02 | ответов: 3 | просмотров: 99

Здравствуйте!
Возникло тут у меня желание в кодировках покопаться.
Заинтересовали меня такие преобразования: Windows в UTF8 и UTF8 в Windows.

Покопался в Сети и в голову пришла странная идея:

001:
002:
003:
004:
005:
006:
007:
008:
009:
010:
011:
012:
013:
014:
015:
016:
017:
018:
019:
020:
021:
022:
023:
024:
025:
026:
Public Function UTF8ToWin(ByVal
inString As String) As String
    Dim Res_Byte() As Byte = {}
    Dim Rez_String As String = ""

    Res_Byte = Encoding.Default.GetBytes(inString)
    For Each b As Byte In Res_Byte
      Rez_String += b
    Next

    Return Rez_String
  End Function

  Public Function WinToUTF8(ByVal inString As String) As String
    Dim Res_Byte() As
Byte = {}
    Dim Rez_String As String = ""

    Res_Byte = Encoding.UTF8.GetBytes(inString)

    For Each b As
Byte In Res_Byte
      Rez_String += b
    Next

    Return Rez_String
  End Function

Colorized by: Eros.CodeSyntaxColor Engine

Возникает вопрос: я прав или ошибаюсь?
Если я ошибся - поправьте меня пожайлуста.

P.S. Если код верный - можно поместить в Примеры. Я не обижусь! :)

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 1 | Автор: Алексей
Добавлено:13.02.2008 / 03:46
Да, примерно так, только не факт, что Encoding.Default будет Win-1251 :) Извращаться с байтами тоже не надо, достаточно сделать что-то типа этого:

001:
002:
003:
004:
005:
Dim e1 As Text.Encoding = Text.Encoding.GetEncoding(1251)
Dim e2 As Text.Encoding = Text.Encoding.UTF8
Return e2.GetString(e1.GetBytes(sText))

Colorized by: Eros.CodeSyntaxColor Engine

Что касается примеров, то все, кому не лень могут сомостоятельно кидать их в кодообменник, для рейтинга полезно :)

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 2 | Автор: EROS
Добавлено:13.02.2008 / 09:10
Согласен.. побайтное перекодирование тут абсолютно ни к чему. Надо работать со всей строкой сразу.

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Ответ # 3 | Автор: Игорь Голов
Добавлено:13.02.2008 / 09:42
Спасибо!

Добавить ответ | Посмотреть эту тему на сайте | Форум Kbyte.Ru

URLEncode и передача POST в службу | Автор: bobsapp
Добавлено: 08.02.2008 / 14:51 | ответов: 0 | просмотров: 74

Пытаюсь отослать на asmx веб-службу POST-запрос, состоящий из английских и русских символов:
но в службу приходят крякозяблы, отслеживаю дебагом. см. скриншот:

увеличить
(синее окошко - это IDE VB6.0 в котором я формирую POST для отправки, а белое - это окно студии2005 - служба куда я принимаю POST)

если запускать код веб-формы, то проходит всё верно, т.е. по-русски, а из IDE ну никак...
вопрос такой, как правильно кодировать нужно, по логике получается надо
из Windows-1251 в UTF-8 и потом отправлять.
кто-нибудь сталкивался? может есть рекомендации по организации такой логики?

Ответить на это сообщение | Посмотреть эту тему на сайте | Форум Kbyte.Ru

Наверх

Последние статьи

Как узнать размер базы данных MySQL через php
Автор: Николай Рудченко | добавлено: 14.02.2008 / 13:01 | просмотров: 30

В этой небольшой статье вы узнаете, как получить размер вашей базы данных (БД) MySQL используя язык программирования PHP.

Взаимодействие с другими сайтами через HTTP (HttpWebRequest и HttpWebResponse)
Автор: Немиро Алексей | добавлено: 27.07.2007 / 14:01 | просмотров: 2775

В данной статье речь пойдет о том, как можно программно заполнить и отправить Web-форму, а также получить результат с использованием довольно простых классов - HttpWebRequest и HttpWebResponse.

Работа с SQL – Запросы
Автор: Хабибулин А. (aka Bille Gates) | добавлено: 22.07.2007 / 04:43 | просмотров: 5149

В данной статье рассмотрены часто используемые SQL-запросы и приведены примеры их использования.

Использование XML.Serialization
Автор: Немиро Алексей | добавлено: 19.07.2007 / 15:38 | просмотров: 1441

В данном обзоре речь пойдет об использование XML.Serialization в .NET и ее применении на примере сохранения и считывания настроек программы с использованием синтаксиса языка Visual Basic .NET.

Выбор языка программирования для научных работ (2-я редакция)
Автор: Юдин С. Ю. | добавлено: 15.03.2007 / 02:49 | просмотров: 4072

Идея написания этой статьи возникла после того, как на одном из сайтов по физике http://physics.nad.ru/aniboard/messages/291.html я обнаружил интересный алгоритм моделирования движения тела в поле постоянной напряженности по различным направляющим. Вернее, меня заинтересовал не весь алгоритм, т.к. основа их всех одна (принцип Даламбера, если не считать квазиалгоритма с применением уравнений Лагранжа 2-го рода) и различаются они только способом определения реакций в месте соприкосновения тел. ...

Статьи на Kbyte.Ru

Наверх

Интересные коды и решения

Как программно изменить тему страницы?
Дата добавления: 31.07.2006 / 13:40 | просмотров: 1449 | платформа: ASP .NET (VB)

Как заблокировать/разблокировать любое окно?
Дата добавления: 31.07.2006 / 12:52 | просмотров: 1250 | платформа: VB

Как отправить E-Mail?
Дата добавления: 01.08.2006 / 11:52 | просмотров: 2450 | платформа: ASP

Как узнать текущее разрешение экрана?
Дата добавления: 24.03.2007 / 12:25 | просмотров: 1368 | платформа: VB .NET

Запись куков (Cookies)
Дата добавления: 01.08.2006 / 12:00 | просмотров: 1319 | платформа: ASP

Проверка существования файла
Дата добавления: 31.07.2006 / 12:40 | просмотров: 2071 | платформа: VB

Класс доступа к данным SQL Server
Дата добавления: 24.03.2007 / 11:48 | просмотров: 1001 | платформа: VB .NET

Как распечатать Web-страницу?
Дата добавления: 17.08.2006 / 17:58 | просмотров: 1465 | платформа: VB

Анализ даты стандарта DD.MM.YYYY и DD.MM.YY
Дата добавления: 24.03.2007 / 11:00 | просмотров: 1035 | платформа: RegEx

Как программно дополнить заголовок (Title) страницы?
Дата добавления: 31.07.2006 / 13:27 | просмотров: 1133 | платформа: ASP .NET (VB)

Универсальные коды на Kbyte.Ru

Наверх

Юмор на Kbyte.Ru

- Сколько нужно сотрудников службы поддержки компании Microsoft,чтобы заменить лампочку?
- Четыре. Первый, чтобы узнать регистрационный номер лампочки. Второй, чтобы спросить:
"А вы перезагрузиться пробовали?"
Третий, чтобы спросить:
"А вы пробовали её переустановить?"
И четвёртый, чтобы сказать:
"Это у вас что-то с железом. У нас в офисе лампочка работает отлично!"

Рейтинг: 151
Всего голосов: 250