08.04.2010, 21:02
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами:
8556802
Репутация:
79
|
|
SkyLine32,
Pchar(label1.Caption)
 |
|
|
08.04.2010, 21:17
|
|
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
С нами:
8556802
Репутация:
79
|
|
JnK, проблема в том что используется для процедуры PAnsiChar >> ну и как следствие несоответствие типов в коде |
|
|
|
09.04.2010, 01:11
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
С нами:
10060964
Репутация:
52
|
|
Сообщение от fenixelite
JnK, проблема в том что используется для процедуры PAnsiChar >> ну и как следствие несоответствие типов в коде PChar и PAnsiChar почти одинаковы, разница только в том что в первом некоторые символы читаются как 2, а во втором как 1 символ.
Если даже после того кода осталась проблема то может: ?
P.s. Я знаю как работает, но может криво объяснил Гугл поможет.
|
|
|
|
08.04.2010, 23:30
|
|
Участник форума
Регистрация: 02.02.2010
Сообщений: 107
С нами:
8563393
Репутация:
28
|
|
внимательно прочитай что функция делает и что ей надо передавать!
Код:
The ShellExecute function opens or prints a specified file. The file can be an executable file or a document file. See ShellExecuteEx also.
HINSTANCE ShellExecute(
HWND hwnd, // handle to parent window
LPCTSTR lpOperation, // pointer to string that specifies operation to perform
LPCTSTR lpFile, // pointer to filename or folder name string
LPCTSTR lpParameters, // pointer to string that specifies executable-file parameters
LPCTSTR lpDirectory, // pointer to string that specifies default directory
INT nShowCmd // whether file is shown when opened
);
|
|
|
|
09.04.2010, 01:16
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
С нами:
10060964
Репутация:
52
|
|
Проверил у меня все работает, запускается 2 копия приложения во весь экран:
PHP код:
Uses ShellApi;
....
ShellExecute (Form1.Handle, 'open', PAnsiChar (Application.ExeName), nil, nil, SW_MAXIMIZE);
|
|
|
|
09.04.2010, 12:04
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 225
С нами:
8912421
Репутация:
297
|
|
как это исправить? уже пробывал разные форматы |
|
|
|
09.04.2010, 12:52
|
|
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами:
10097606
Репутация:
3349
|
|
пропробуй грузить BMP файлы. В Delphi 7 вообще небыло возмоности грузить jpeg и gif программно. Потом вроде это появилось, хотя и то кривовато
|
|
|
|
09.04.2010, 16:58
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 225
С нами:
8912421
Репутация:
297
|
|
Забыл добавить в uses jpeg оказывается.сохраняется в любом формате.
Еще вопрос. Как сделать чтобы в юрл в стринг id вставлялся один из списка например, и при каждом коннекте менялся? Например в списке 10 ид разных.
Вида:
123
111
1562
43
68213
12
И т.п.
И он при каждом коннекте подставляет примерно так: http://site.ru/index.php?id=123
Список ид из файла или в самой программе)
Буду благодарен только учусь..) |
|
|
|
09.04.2010, 17:23
|
|
Познавший АНТИЧАТ
Регистрация: 05.05.2008
Сообщений: 1,078
С нами:
9482786
Репутация:
1357
|
|
помогите вынес себе мозг!!!!!!
 |
|
|
|
09.04.2010, 18:11
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
Сообщение от MaTpOc
помогите вынес себе мозг!!!!!!
ответ 1
на бейсике
for i=0 to 10
a(i)=i*2
next i
этот код дает нам такую последовательность:
0 2 4 6 8 10 12 14 16 18 20
PHP код:
for i=10 to 0 step -1
k=a(10-i)
a(10-i)=a(i)
a(i)=k
next i
понятно что тут меняются местами элементы.
Достаточно посчитать крайние члены:
PHP код:
i=10
k=a(0)
a(0)=a(10)
a(10)=k
иными словами по коду
PHP код:
i=10
k=0
a(0)=a(10) //то есть 0 заменяется на 20
a(10)=k // 20 заменяется на 0
вот и се
Последний раз редактировалось EndLeSSDre@M; 09.04.2010 в 18:28..
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [stranger]](/avatars/avatar113122.jpg?2056174){kind=avatar}
Похожие темы
Комбинированный вид
