[morgan1991]

пробовал браузером приконнектиться к скрипту чтобы он вернул ему картинку, дак браузер выдаёт:
0x485454502F312E3120323030204F4B0D0A5365и т.д.
никак не пойму как всётаки просмотреть эту картинку в программе, а не через браузер.
InetGet не подходит... Там есть свой косяк...
Хотябы намекните ктонибудь, что это за данные вообще передаются от сервера???
почемуто если прямо через браузер зайти по ссылке, то картинка отображается нормально, а если скриптом получить весь код и передать браузеру он выводит - писал выше что выводит...
Помогите пожалуйста, очень, очень нужно...

[kaster]

morgan1991, там бинарный код картинки. запиши эти данные (0x485454502F312E3120323030204F4B0D0A5365и т.д.) в файл в бинарном режиме. к примеру, запиши эти данные в какую нибудь переменную, предположим $s, а потом уже пиши его в предварительно открытый в бинарном режиме файл

Код:

$hWrite = FileOpen(@ScriptDir & '\test.png', 16 + 2)
FileWrite($hWrite, $s)
FileClose($hWrite)

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

[morgan1991]

kaster, дак в том то и косяк...
данные передаются бинарные, но в них и заголовок, т.е. нужно получить данные

Код:

TCPRecv($ConnectedSocet, 2048, 0)

С этим флагом они автоматом переведутся из бинарного вида в строку, затем отделить заголовок сервера от данных файла, затем перевести данные файла обратно в бинарный вид и записать в файл в бинарном режиме. Но это теория, а на практике я не могу отделить заголовок, а если вручную в созданном файле удалить заголовок, то файл становится не читаемым для просмотрщиков изображений.

[kaster]

По всей видимости, какие-то косяки при конвертации из бинарного в текстовый и обратно. я тоже не смог переделать код в картинку. попробуй принимать данные сразу в бинарном виде, сохранить поток в файл, открыть любым умным редактором и удалить все, что до ‰PNG

[morgan1991]

открыть любым умным редактором и удалить все, что до ‰PNG »

Открыл через Notepade++ и всё получилось, картинка стала рабочей, но как это сделать на Autoit ???

А если через Scite удаляю всё до ‰PNG, тогда картинка не открывается

[kaster]

но как это сделать на Autoit ? »

точно так же
после сохранения, по идее при открытии и закрытии подобных подстав уже не должно быть

Код:

$sFile = @Script & '\test.png'
$sFile_new = @Script & '\test2.png'
$hRead = FileOpen($sFile, 0)
$hWrite = FileOpen($sFile_new, 2)
Do
   $line = FileReadLine($hRead)
Until StringInStr($line, '‰PNG')
$line &= FileRead($hRead)
FileClose($hRead)
FileWrite($hWrite, $line)
FileClose($hWrite)

[morgan1991]

kaster, вообщем подправил немного ошибки и коечто изменил.

Код:

$sFile = @ScriptDir & '\test1.png'
				$sFile_new = @ScriptDir & '\test2.png'
				$hRead = FileOpen($sFile, 0)
				$hWrite = FileOpen($sFile_new, 2)
				Do
					$line = FileReadLine($hRead)
				Until StringInStr($line, '‰PNG')
				Do
					$line &= @CRLF & FileReadLine($hRead)
				Until @error = -1
				$line &= @CRLF & FileRead($hRead)
				FileClose($hRead)
				FileWrite($hWrite, $line)
				FileClose($hWrite)

$line &= FileRead($hRead) - не подходит, т.к. он не читает до конца а только следующие две строчки, т.к. дальще в файле такая строка:
NULNULNUL
поэтому заменил на:

Код:

Do
     $line &= @CRLF & FileReadLine($hRead)
Until @error = -1

И всеравно не помогло, скрипт игнорит:
NUL, как будто их нет, я даже в не могу вручную скопировать эту строку и вставить на форум, винда её просто игнорит...

[kaster]

А если так

Код:

$sFile = @Script & '\test.png'
$sFile_new = @Script & '\test2.png'
$hRead = FileOpen($sFile, 16)
$hWrite = FileOpen($sFile_new, 16 + 2)
Do
   $line = FileReadLine($hRead)
Until StringInStr($line, '‰PNG')
$line &= FileRead($hRead)
FileClose($hRead)
FileWrite($hWrite, $line)
FileClose($hWrite)

[morgan1991]

Тоже не катит, он ‰PNG вставляет как есть а остальное в бинарном виде и получается:

Код:

‰PNG0x41E9A0A2485144309A8888800521108DA222112536343131и т.д.