بدست آوردن اطلاعات اولیه فایل با vb؟

[sajjad_AD]

سلام به دوستان عزیزم :hi:
چه جوری با ویژوال بیسیک میشه اطلاعات اولیه ی مثلا یه عکس رو به دست اورد,مثلا ببینم ابعادش چند در چند پیکسل یا Bit Depth اون چقدره :
You can see links before reply

[sadmonew]

سلام:hi:
مهندس قبلا يه برنامه نوشتم كه اينكارو انجام مي داد.
البته توي اون برنامه از تابع API مثل: Bitblt و يه سري توابع ديگه استفاده كردم.
دارم دنبالش مي گردم. پيداش كردم اينجا ميذارمش.

[sajjad_AD]

دمت گرم پروژه رو بي خيال ميشه در مورد اين توابعي که گفتي توضيح بدي يا منبعي آموزشي کتابي.
بازم از پاسختون ممنون

[sadmonew]

سلام مهندس:hi:
ببين اين به كارت مياد.
اون برنامه كه قبلا نوشتم با VB 6.0 نوشته بودم.(4/5 سال قبل) خدا ميدونه فايل هاي اون كجاس.

[sajjad_AD]

قربون دستت این که نه به کارم نیومد من واسه مثال گفتم عکس,فرمت های صوتی و ویدیویی رو که نمی شه تو پیکچر باکس گذاشت

[sajjad_AD]

سلام :hi:
با تشکر فراوان از آقای محمدی,به خاطر راهنمایی ها شون.
یه روش ساده واسه این کار پیدا کردم. :o
مثلا می خوایم مشخصات و نوع دقیق فورمت یه فایل Wav رو بدونیم,اول از همه:

Private Type WAVEFMT
signature As String * 4 ' must contain 'RIFF'
RIFFsize As Long ' size of file (in bytes) minus 8
type As String * 4 ' must contain 'WAVE'
fmtchunk As String * 4 ' must contain 'fmt ' (including blank)
fmtsize As Long ' size of format chunk, must be 16
format As Integer ' normally 1 (PCM)
channels As Integer ' number of channels, 1=mono, 2=stereo
samplerate As Long ' sampling frequency: 11025, 22050 or 44100
average_bps As Long ' average bytes per second; samplerate * channels
align As Integer ' 1=byte aligned, 2=word aligned
bitspersample As Integer ' should be 8 or 16
datchunk As String * 4 ' must contain 'data'
samples As Long 'number of samples
End Type

با این کار یه چیزی تو مایه های یه Class درست کردیم,بعد:

Dim WavDat As WAVEFMT
این کار رو هم بعد از تعریف کلاس واسه اختصاص دادن حافظه و در نهایت در روال برنامه :

Open Address For Binary As #1

Get #1, , WavData

close #1
و متغییر های تعریف شده در کلاس مقدار های مربوط به فایلمون رو درون خودشون ذخیره می کنن :wink: