| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

String to Ole [D7, XP]

Страницы:   < 1 2 >

Igor ©   (2008-06-02 11:17:00) 

Подскажите пожалуйста функцию преобразования строки в олевариант

---

Igor   (2008-06-02 11:45:00) [21]

vPostData:= VarArrayCreate([0, Length(pdata2)], varByte);
  for iLoop := 0 to Length(pdata2)- 1 do vPostData[iLoop]:= Ord(pdata2[iLoop+ 1]);
  vPostData[Length(pdata2)]:= 0;
  TVarData(vPostData).vType:= varArray;

---

Сергей М.   (2008-06-02 11:44:00) [22]

> преобразовываю строку в оле


Где?

---

Igor   (2008-06-02 11:43:00) [23]

преобразовываю строку в оле

---

Сергей М.   (2008-06-02 11:42:00) [24]

Ответь на [10], [11]

---

Igor   (2008-06-02 11:40:00) [25]


function log_in(login: string): boolean;              
var
 i, iLoop: integer;
 pass,method,pdata,lurl,str1,pdata2,lurl2: string;
 vWebAddr, vPostData, vFlags, vFrame, vHeaders: OleVariant;
begin
   pdata2:='...';
   lurl:='...';
   vHeaders:= 'Content-Type: application/x-www-form-urlencoded'+ #10#13#0;
   vPostData:= VarArrayCreate([0, Length(pdata2)], varByte);
   for iLoop := 0 to Length(pdata2)- 1 do vPostData[iLoop]:= Ord(pdata2[iLoop+ 1]);
   vPostData[Length(pdata2)]:= 0;
   TVarData(vPostData).vType:= varArray;
   vWebAddr:= lurl;    
   vFlags:= EmptyParam;
   vFrame:= EmptyParam;
   mf.wb.Navigate2(vWebAddr, vFlags, vFrame, vPostData, vHeaders);
 end;
end;


да, функция выполняется, но ошибка что неверный тип варианта появляется

---

Сергей М.   (2008-06-02 11:39:00) [26]

> vPostData:= VarArrayCreate([0, Length(pdata2)], varByte);
> TVarData(vPostData).vType:= varArray;


Это что вообще за выкрутасы ?

---

Сергей М.   (2008-06-02 11:35:00) [27]

И ты настаиваешь, что ошибка возникает именно на этой строчке

vWebAddr:= lurl;

?

---

Igor   (2008-06-02 11:33:00) [28]

в функции


function log_in(login: string): boolean;              
var
 i, iLoop: integer;
 pass,method,pdata,lurl,str1,pdata2,lurl2: string;
 vWebAddr, vPostData, vFlags, vFrame, vHeaders: OleVariant;
begin
 ....


---

Сергей М.   (2008-06-02 11:31:00) [29]

Где и как объявлен идентификатор lurl ?

---

Igor   (2008-06-02 11:28:00) [30]

lurl строка,
vWebAddr:= lurl;

---

Сергей М.   (2008-06-02 11:27:00) [31]

И гдк в этом коде попытка преобразования строки в в олевариант ?

---

Igor   (2008-06-02 11:25:00) [32]

тогда может чтото тут не так:

   vHeaders:= 'Content-Type: application/x-www-form-urlencoded'+ #10#13#0;
   vPostData:= VarArrayCreate([0, Length(pdata2)], varByte);
   for iLoop := 0 to Length(pdata2)- 1 do vPostData[iLoop]:= Ord(pdata2[iLoop+ 1]);
   vPostData[Length(pdata2)]:= 0;
   TVarData(vPostData).vType:= varArray;
   vWebAddr:= lurl;
   vFlags:= EmptyParam;
   vFrame:= EmptyParam;
   mf.wb.Navigate2(vWebAddr, vFlags, vFrame, vPostData, vHeaders);


функция выполняется но появляется сообщение что неверный тип варианта

---

Palladin   (2008-06-02 11:23:00) [33]

> Сергей М. ©   (02.06.08 11:22) [3]

Он тебя боится и ругается просебя :)

---

Сергей М.   (2008-06-02 11:22:00) [34]

А у меня не ругается.

Что я делаю неправильно ?

---

Igor   (2008-06-02 11:20:00) [35]

я пробовал просто присваивать, ругается что неверный тип варианта

---

Сергей М.   (2008-06-02 11:19:00) [36]

MyOleVariantVariable := MyStringvalue;

---

Страницы:   < 1 2 >

Наверх