Archive for 22. dets. 2010

Skype ei tööta…

detsember 22, 2010

Lõpuks sain ka kinnituse ajakirjandusest, mul esmalt logis sisse ja välja, siis lõpetas üldse koostöö. Päkapikud vist süsteemis sees.

Skype ei tööta juba mitmendat tundi
http://www.e24.ee/?id=361714

27.05.2011 fix

Kuidas Skype jälle tööle saada
http://www.ap3.ee/article/2011/5/27/kuidas-skype-jalle-toole-saada

Advertisements

Mõistatus, kuidas Hiinast tellida tehnika asjandusi …

detsember 15, 2010

Miks selline pealkiri, olles omamoodi tehnikasõber, tahaks asju Hiinast tellida. Muidu oleks kõik tore, aga mitte kusagil ei leia viidet, mida toll lubad läbi, mida mitte. Vaadates teiste tehnikasõprade õnnestumisi, siis selgub, et see täiesti pokker. Üks saab oma seadme kätte, teisele öeldakse, et ei tohi sisse tuua ja pakk saadetakse tagasi.

Nagu ma mõistnud, et peab olema CE või FCC märgend ning see peab ka tõene olema. Samas olukord nutune, enamus Hiina tootjaid ei taha raha selle peale kulutada, kuid antud fakt ei tähenda, et antud seade on jama.

Kus leiaks täpselt nimekirja, mille järgi toll otsustab, kas lubada või mitte ? Mulle hakkab see bürokraatlik pimesiku mängimine tasapisi juba närvidele.

Et kas täiesti lootusetu üritus tellida Hiinast ntx kaamerat või kontrollerit , millel puudub CE sertifikaat ?
Millistel alustel osad CE märgentita asjad lubatakse läbi (kas see lohakus)? Järeletehtud seadmete puhul asi loogiline, sellist ei tohi läbi lubada.

Tänan kõiki, kes oskavad mind antud teemal valgustada !

Programmeerimine: vana hea clipboard hook

detsember 9, 2010

Tegemist koodiga, mis koheselt kuvab clipboardi sisu, kui kusagil programmis aka Ctrl+C/kontekstimenüüst valiti Copy. Olin natuke laisk, võtsin näitesse vaid CF_TEXT ja CF_HTML formaadid.


...
procedure TForm1.WMDrawClipboard(var Msg:TMessage);
begin

if FNChain 0 then
SendMessage(FNChain, WM_DrawClipboard, 0, 0);

if Clipbrd.Clipboard.HasFormat(CF_TEXT) or Clipbrd.Clipboard.HasFormat(FCF_HTML) then
Memo1.Lines.Add(Clipbrd.Clipboard.AsText);

end;

procedure TForm1.WMChangeCBChain(var Msg: TMessage);
var
Remove, Next: THandle;
begin
Remove := Msg.WParam;
Next := Msg.LParam;
with Msg do
if FNChain = Remove then
FNChain := Next
else
if FNChain 0 then
SendMessage(FNChain, WM_ChangeCBChain, Remove, Next)
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FNChain:=SetClipboardViewer(self.Handle);
FCF_HTML:=RegisterClipboardFormat('HTML Format');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ChangeClipboardChain(self.Handle, FNChain);
end;
...

Lähtekood ja binary siin